How to hide all empty columns without including the column header

I have a spreadsheet that will have column headers. But some of the columns will be empty. I need to determine which columns are empty, minus the column headers, and hide them all. I've tried several things but I'm sure I'm missing something.

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
                MsgBox (iCol)
                End If
                MsgBox (iCol)
            Next iCol
        End With
    Next wsSheet
End Sub

Hi mkingsberry. Welcome to the forum.

Be sure to read through the Forum Rules so you can use and follow them effectively. For instance, you'll need to EDIT that post above and put code tags around that code you used. (Like shown here).

Option Explicit

Sub HideEmptyColumns()
Dim ws As Worksheet
Dim LastCol As Long
Dim Col As Long

For Each ws In Worksheets
    LastCol = ws.Cells.Find("*", ws.Cells(ws.Rows.Count, ws.Columns.Count), _
        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

    For Col = 1 To LastCol
        If Application.WorksheetFunction.CountA(ws.Columns(Col)) < 2 Then _
            ws.Columns(Col).Hidden = True
    Next Col

Next ws

End Sub

That should work. Now be sure to fix that post above. Thanks.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.