Macro to hide columns based on contents of two cells

Hi,

I am having trouble creating this macro:

I am trying to create a macro that can hide particular columns in all sheets in the work book based on the contents of two different cells in the column. For example, if the macro should be able to hide all columns in the workbook where cells A5:Z5 say "DEC" and cell A6:Z6 says "PY". The macro should loop through all sheets and check for the values of those cells. Can anyone assist me with this?

Thanks

I have created this Macro that does part of the job.

Cells.Find(What:="PY", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If ActiveCell.Offset(-1) = "DEC" Then
ActiveCell.EntireColumn.Hidden = True
Else
ActiveCell.EntireColumn.Hidden = False
End If

I nee to loop this through the entire workbook. Any advice?