Formula to hide blank Columns

[jdhoran]

Hi,

I am after a formula or bit of code that will hide a column if there is no data in it

Cheers
Jacob

 

[agihcam]

Hi -
try this;

Sub test()
Dim myrng As Range
Set myrng = Range("e:e")
If WorksheetFunction.CountA(myrng) > 0 Then
    Columns("e").Hidden = True
End If
End Sub

 

[jdhoran]

Thanks, just what I needed