mysiteonline™

An online friend asked me for some help in hiding all empty columns for every sheet within an Excel workbook. I figured I'd share the code:

(also on pastebin)
Sub HideEmptyCols() ' Deletes all empty columns on the active worksheet Dim iCol As Integer Dim wsSheet As Worksheet For Each wsSheet In Worksheets wsSheet.Select With wsSheet.UsedRange For iCol = .Column + .Columns.Count - 1 To 1 Step -1 If IsEmpty(Cells(65536, iCol)) And IsEmpty(Cells(1, iCol)) Then If Cells(65536, iCol).End(xlUp).Row = 1 Then Columns(iCol).Hidden = True End If Next iCol End With Next wsSheet End Sub

Perhaps someone else will find it useful for some odd reason.

Posted by Brendon Kozlowski