Deleting Empty Columns

[scott]

I'm trying to delete all columns within the used range that contain no data
all the way down. My code below works fine for doing rows, but I can't find
syntax to do the same on columns.

Any help?

Sub DeleteEmptyRows()
Dim LastRow As Long
Dim r As Long
LastRow = ActiveSheet.UsedRange.Row - 1 +
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 _
Then Rows(r).Delete
Next r
End Sub

 

[Tom Ogilvy]

Sub DeleteEmptyRows()
Dim LastCol As Long
Dim r As Long
LastCol = ActiveSheet.UsedRange.Column - 1 + _
ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = LastCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(r)) = 0 _
Then Columns(r).Delete
Next r
End Sub

Would be my guess.

 

[scott]

that did it.

Sub DeleteEmptyRows()
Dim LastCol As Long
Dim r As Long
LastCol = ActiveSheet.UsedRange.Column - 1 + _
ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = LastCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(r)) = 0 _
Then Columns(r).Delete
Next r
End Sub

Would be my guess.