Deleting Blank Columns

[sdohertyccb]

Can anyone give me a clue as to what I need to do to search for blank columns in a range and delete them? I can do this for blank rows, but am stuck on deleting blank columns.
Here is the code I have started for the blank rows, but am lost on the columns section.

 For a = 1 To lastrow Step 1
            If IsEmpty(Range("B" & a)) Then
            Range(a & ":" & a).Select
            Selection.Delete Shift:=xlUp
            End If
        Next a
        For b = 1 To lastcol Step 1
            If IsEmpty(range() Then
            Columns(b).Select
            Selection.Delete
            End If
        Next b

 

[VoG]

Try

For b = lastcol To 1 Step -1
    If WorksheetFunction.CountA(Columns(b)) = 0 Then Columns(b).Delete
Next b

the row deleting part should also loop backwards.

 

[sdohertyccb]

Peter,
That worked like a charm...
I know there had to be an easy solution to this.
I truly appreciate your help!