Macro to hide many blank columns at once?

[John Gorman]

Rather than selecting and hiding columns without data (other than header),
is there a macro or something that will hide them all at once? Say I have 50
columns, but only 10 have data and they are not side by side, but maybe
column A,B, D,G,AB etc while the rest are blank. Hope I have explained this
in enuf detail.

Thanks in advance if you have an answer.

 

[Don Guillett]

a couple of ways

Sub hidecols()
For Each c In Range("a1:j1")
If c.Value = "" Then c.EntireColumn.Hidden = True
Next
End Sub

Sub hidecols1()
Range("a1:j1").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

 

[John Gorman]

Don thanks for such a quick reply. We'll give'em both a try.
Thanks again!

--
John

a couple of ways

Sub hidecols()
For Each c In Range("a1:j1")
If c.Value = "" Then c.EntireColumn.Hidden = True
Next
End Sub

Sub hidecols1()
Range("a1:j1").SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)

Rather than selecting and hiding columns without data (other than header),
is there a macro or something that will hide them all at once? Say I

have

 

[Don Guillett]

glad to help

--
Don Guillett
SalesAid Software
(e-mail address removed)

Don thanks for such a quick reply. We'll give'em both a try.
Thanks again!