here's a macro for you, too

Sub test()
Dim lastrow As Long
Dim cell As Range

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In Range("A1:a" & lastrow)
cell.Formula = Right(cell, Len(cell) - 1)
Next
End Sub

--


Gary


"Lane4" wrote in
message ...

Gary - you are a life saver! Thank you so very much. Hope your day is
as wonderful as you have just made mine!


--
Lane4
------------------------------------------------------------------------
Lane4's Profile:
http://www.excelforum.com/member.php...o&userid=28173
View this thread: http://www.excelforum.com/showthread...hreadid=481854