Without looking too close the first issue is that end row is declared as
integer. Integer only goes to 32k. Change it to a long...

Dim EndRw As long
--
HTH...

Jim Thomlinson


"David" wrote:

Hi
Can anybody please tell me what am I doing wrong here
Trying to hide certain rows
Sub aa()
Dim Rw As Integer
Dim EndRw As Integer
Rw = 100
EndRw = 65536
Rows(Rw & ":" & EndRw).Hidden = True
End Sub

Regards