Stu,

Dim x as Long
For x = 3 to 2203 step 200
Range(Rows(x),Rows(x + 198)).EntireRow.Hidden = True
Next

adjust as needed
--
sb
"Stu" wrote in message
...
Hello,
Is there anyway to make this code shoter and run faster because it
takes abit of time to run.

Sub Main()

Dim Rng As Range
For Each Rng In

Range("G3:G201,G203:G401,G403:G601,G603:G801,G803: G1001,G1003:G1201,G1203:G1
401,G1403:G1601,G1603:G1801,G1803:G2001,G2003:G220 1,G2203:G2401")

Rng(1, 1).EntireRow.Hidden = (Rng.Value = "")
Next Rng

End Sub

Thanks
--
Stu



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/