Mac,

Try this:

Sub RemovePreSpaces()
Dim rng As Range, c As Range

Set rng = ActiveSheet.UsedRange
For Each c In rng
c.Value = Mid(c, 3)
Next

End Su

--
david
-----------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...fo&userid=2064
View this thread: http://www.excelforum.com/showthread.php?threadid=43746