hide , unhide colums

[hamad.fatima]

I have a range of columns suppose D-O. Every month one column is
populated with the data. I want to create a Macro which can unhide the
columns with data and hide the empty columns.

thanks

 

[Tom Ogilvy]

Sub HideColumns()
Dim cell as Range, cnt as Long
for each cell in Range("D1:O1")
cnt = Application.CountA(cell.entireColumn)
if cnt < 2 then
cell.EntireColumn.Hidden = True
else
cell.EntireColumn.Hidden = False
end if
next
end Sub