ok
Here are 2 macros for you
Code:
Sub Macro1()
'hides rows that contain numbers
Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Hidden = True
End Sub
Sub Macro2()
'unhides all rows
Cells.EntireRow.Hidden = False
End Sub
Macro1 hides all rows containing numbers
as Excel interprits dates as numbers then these rows will be hidden
it looks for numbers in column A
HTH
David
macro2 unhides all hidden rows on the worksheet