Hi,

I'm trying to run the subject macro from Debra Dalgliesh

at:
     http://www.contextures.on.ca/xlfaqApp.html#Unused

However, everytime I try and run the macro it gets hung up at this
line of the macro ".Columns.Delete".  I did the merged cell test and
there were no merged cells.  I'm running Microsoft Excel 2003 if that
helps.

Please advise,

Steve

Sub DeleteUnused()

Dim myLastRow As Long
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range

For Each wks In ActiveWorkbook.Worksheets
 With wks
   myLastRow = 0
   myLastCol = 0
   Set dummyRng = .UsedRange
   On Error Resume Next
   myLastRow = _
     .Cells.Find("*", After:=.Cells(1), _
       LookIn:=xlFormulas, LookAt:=xlWhole, _
       SearchDirection:=xlPrevious, _
       searchorder:=xlByRows).Row
   myLastCol = _
     .Cells.Find("*", After:=.Cells(1), _
       LookIn:=xlFormulas, LookAt:=xlWhole, _
       SearchDirection:=xlPrevious, _
       searchorder:=xlByColumns).Column
   On Error GoTo 0

   If myLastRow * myLastCol = 0 Then
       .Columns.Delete
   Else
       .Range(.Cells(myLastRow + 1, 1), _
         .Cells(.Rows.Count, 1)).EntireRow.Delete
       .Range(.Cells(1, myLastCol + 1), _
         .Cells(1, .Columns.Count)).EntireColumn.Delete
   End If
 End With
Next wks

End Sub