VBA code

[vukboban]

This code works:

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 

but I need to replace it with:

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 

And this doesnt work.
Any help ?
Thank you