No reason to select:

.Range("1:" & .Cells(.Rows.Count, 6).Row).EntireRow.Hidden = False




In article ,
Stephen wrote:

Hi Folks,

I can find my last row of data with...

LastRowOfData = .Cells(.Rows.Count, "F").End(xlUp).Row
For X = 1 To LastRowOfData

But how can I then select rows 1 through LastRowOfData then unhide all at
once??

-Not that they are all hidden in the firstplace, but I think it would run
faster then looping through each row and unhiding it if it is hidden.

TIA,

Steve