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.