Gemme rækker hvis bestemt tekst i celle

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandle

Application.ScreenUpdating = False
    Home = ActiveCell.Address
    HomeArk = ActiveSheet.Name
   
    If Not Intersect(Range("A2"), Target) Is Nothing Then
        If Range("A2").Value = "JKK" Then
    Range("A19:A21").EntireRow.Hidden = True
    Range("A11").EntireRow.Hidden = False
    Range("L1:N1").EntireColumn.Hidden = False
Else
            If Range("A2").Value = "MAKKD" Then
        Range("A19:A21").EntireRow.Hidden = False
        Range("A11").EntireRow.Hidden = False
        Range("L1:N1").EntireColumn.Hidden = False
Else
                If Range("A2").Value = "SMM" Then
            Range("A11").EntireRow.Hidden = True
            Range("L1:N1").EntireColumn.Hidden = True
            Range("A19:A21").EntireRow.Hidden = False
    End If
    End If
    End If
           
    Sheets(HomeArk).Select
    Range(Home).Select
   
BeforeExit:
Application.ScreenUpdating = True

Exit Sub
'Her havner vi ved programfejl
ErrorHandle:
Resume BeforeExit 'Dirigerer tilbage til BeforeExit

End If
End Sub