ok. i'm not sure why this isnt working, but i truly appreciate all the
help.

in lieu of Ryan's advice, I even tried putting the code in itself
instead of trying to call it.
Didn't work.

Any suggestions?

Sub AAA()
Dim StartCol As Long
Dim EndCol As Long
Dim ColNdx As Long
StartCol = 1 ' column A
EndCol = 28 ' column AB
For ColNdx = EndCol To StartCol Step -1
If Application.CountA(Columns(ColNdx)) = 1 Then
Columns(ColNdx).Delete
End If
Next ColNdx
End Sub