Always nice to post your final result for the archives.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Melvin Purvis" wrote in message
...
The good news is, this macro didn't work :)

The better news is, I'm understanding enough of this stuff now that it got
me
pointed in the right direction :) :)

The best news is, I was able to change it to make it work perfectly now :)
:) :)

Thaks again!

"Don Guillett" wrote:
Try this

Sub hiderowsif()
Rows.Hidden = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If IsNumeric(Cells(i, 1)) And Left(Cells(i, 1), 1) = 8 _
Then Rows(i).Hidden = True
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software