hide , unhide colums
 

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

hide , unhide colums
 

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

" wrote:

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