I need a VB macro that will remove the left most character in all cases.

Thanks.

To provide a generic answer, assuming you wanted to do this for A1 in Sheet1

With Sheet1.Range("A1")
.Value = Mid(.Text, 2)
End with


"Troubled User" wrote:

I need a VB macro that will remove the left most character in all cases.

Thanks.

Try this for the activecell

ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell.Value) - 1)




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Troubled User" wrote in message ...
I need a VB macro that will remove the left most character in all cases.

Thanks.