Macro working on incorrect sheet - hiding rows

Hi,

Trying to make this applicable to hiding rows on a sheet call "Manage & Gov" depending on Level 1, 2 or 3 being entered on a sheet called "Rating" in cell D4. So far whenever level 1, level 2 or level 3 is entered it's hiding rows in the sheet "Rating" rather than "Manage & Gov", any help would be appreciated!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Rows("4:11").Hidden = False
        Select Case Target.Value
            Case "Level 1": Sheets("Manage & Gov").Select Rows("6:11").Hidden = True
            Case "Level 2": Sheets("Manage & Gov").Select Rows("4:5")("8:11").Hidden = True
            Case "Level 3": Sheets("Manage & Gov").Select Rows("4:7").Hidden = True
        End Select
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$4" Then
        Rows("4:11").Hidden = False
Sheets("Manage & Gov").Select
        Select Case Target.Value
            Case "Level 1": Rows("6:11").Hidden = True
            Case "Level 2": Rows("4:5" "8:11").Hidden = True
            Case "Level 3": Rows("4:7").Hidden = True
        End Select
    End If
End Sub

This was a slight variation I tried which also didn't work in the correct worksheet!

Hi, Cchoma,

please add code-tags to your procedures as requested in Forum Rule #1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
  Sheets("Manage & Gov").Select
  Rows("4:11").Hidden = False
  Select Case Target.Value
    Case "Level 1": Rows("6:11").Hidden = True
    Case "Level 2": Range("8:10,14:17").EntireRow.Hidden = True
    Case "Level 3": Rows("4:7").Hidden = True
  End Select
End If
End Sub

Ciao,
Holger

Hi, Cchoma,

please try this code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$4" Then
  With Sheets("Manage & Gov")
    .Rows("4:11").Hidden = False
    Select Case Target.Value
      Case "Level 1"
        .Rows("6:11").Hidden = True
      Case "Level 2"
        .Range("8:10,14:17").EntireRow.Hidden = True
      Case "Level 3"
        .Rows("4:7").Hidden = True
    End Select
  End With
End If
End Sub

Ciao,
Holger