This code works:
but I need to replace it with:Code:Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
Dim RNG As Range
Set RNG = Range("A28:A31")
Set WS = Sheets("Sheet2")
WS.Range("A28:A31").EntireRow.Hidden = True
End Sub
And this doesnt work.Code:Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
Dim RNG As Range
Set RNG = Range("A28:A31")
Set WS = Sheets("Sheet2")
WS.RNG.EntireRow.Hidden = True
End Sub
Any help ?
Thank you