Sub Test()
Range("1:19").EntireRow.Hidden = True
Range("B:B").EntireColumn.Hidden = True
Range("D:D").EntireColumn.Hidden = True
Range("F:F").EntireColumn.Hidden = True
End Sub

This will hide rows 1-19 and columns B,D, & F...


--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=536574