try
Sub findtoday_hidecolsafter()
x = Rows(2).Find(Date).Column + 1
Range(Cells(1, x), Cells(1, Columns.Count)).Columns.Hidden = True
End Sub


--
Don Guillett
SalesAid Software

"PPM at Brackmills" <PPM at wrote in
message ...
I have a table with dates as the top row. I want Excel to find todays date
and then hide the columns after todays date. In this way I can make the
printed output bigger and more readable.