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:G1401,G1403:G1601,G1603:G1 801,G1803:G2001,G2003:G2201,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/