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" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>