Delete rows/columns across worksheets

Hello Leith,

I'm also fairly new to VBA programming, but I'm attempting to create a similar solution that will delete blank columns across all worksheets building on what you provided to ncalsurfer. Obviously this is more difficult than I expected. Here's what I've got so far:

Sub Remove_Blanks_ALL_Sheets()
'
' Remove_Blank_Columns Macro
' Macro to remove blank columns in all sheets
'
' Keyboard Shortcut: Ctrl+r
'
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.Cells.Select
    ws.Selection.SpecialCells(xlCellTypeBlanks).Select
    ws.Select.EntireColumn.Delete
Next ws
End Sub

Your assistance would be greatly appreciated. I'm using Excel 2007, but also have access to Excel 2010 if needed.