Hi carrolld2,

The simplest approach is to press Ctrl-End, which takes you to the last active cell, then delete all unused columns and rows and re-save the workbook. Do this correctly, and pressing Ctrl-End will take you to the last used cell. The macro should then 'work as advertised'.

If that doesn't suit your needs, you could change:
LRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
LCol = .Cells.SpecialCells(xlCellTypeLastCell).Column - 1
to:
StrData = InputBox("Please input the last cell address")
LRow = .Range(StrData).Row
LCol = .Range(StrData).Column - 1

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]