Un hide non empty columns

Originally Posted by [email protected]

Is there a macro to un-hide already hidden column which are not blank?

Thanks

Try this:

Sub UnhideCol()
Dim I As Integer, StartAdr As Variant, EndAdr As Variant
StartAdr = Range("A1").Address
EndAdr = Range("A65536").Address
For I = 0 To 255
StartAdr = Range("A1").Offset(0, I).Address
EndAdr = Range("A65536").Offset(0, I).Address
If Application.WorksheetFunction.CountBlank(Range(StartAdr & ":" & EndAdr)) < 65536 Then
Range(StartAdr & ":" & EndAdr).EntireColumn.AutoFit
End If
Next I
Range("A1").Select
End Sub