try this code after highllightig the concerned cell

Public Sub test()
Dim mystring As String
mystring = Left(ActiveCell, 1)
MsgBox mystring
With ActiveCell
..Replace what:=mystring, replacement:=""
End With
End Sub

Andy wrote in message
...

What would the code be to delete the first character in the Active
Cell? So abc123 would become bc123? It's easy to add a character to
the beginning of the string, but I can't figure out how to delete it.

TIA,

Andy