Hi Maayub

You could use RESIZE to do this. Again, this would be easier with some more information...

If you want to keep row 5 and hide rows 6:200 you could use:

Sheets("Sheet1").Rows(6).Resize(195).Hidden = True
Hope this is enough of a clue. Clearly, you can put formulae in the place of the 6 and 195 (e.g. Range("A1").Value, etc)

Cheers, Rob.