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

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

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

End Sub


Others may have better ways, but this one seems to work great for me.
Jamie

This will do a single value. See "Excel Macro Help", not far below for loop
to check mutiple values in a column.

Sub ChangeValue1()
'Can not recover the original value, this overwrites the value, need to loop
to go thru
' a lot of values
OriginalValue = ActiveCell.Value
LengthOrig = Len(ActiveCell.Value)
NewValue = Right(OriginalValue, LengthOrig - 1)
ActiveCell.Value = NewValue
End Sub
Thanks,
David

"Andy" wrote:


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

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

That did it.

Thanks everyone!

Andy

The solution :

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

will fail with error 5 whenever the active cell is empty.

You might want to try this instead:

ActiveCell.Value = Mid(ActiveCell.Value,2)


"Andy" wrote:

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

That did it.

Thanks everyone!

Andy

Just a note. Vba's Mid function works a little differently that the
worksheet version.

ActiveCell = Mid$(ActiveCell, 2)

--
Dana DeLouis
Win XP & Office 2003


"Andy" wrote in message
...
ActiveCell.Value = Right(ActiveCell.Value, Len(ActiveCell.Value) -1)

That did it.

Thanks everyone!

Andy

I test for the character I want to delete, but Mid is a little more
elegant.


The solution :

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

will fail with error 5 whenever the active cell is empty.

You might want to try this instead:

ActiveCell.Value = Mid(ActiveCell.Value,2)

"Andy" wrote:

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

That did it.

Thanks everyone!

Andy

Just a note. Vba's Mid function works a little differently that the
worksheet version.

ActiveCell = Mid$(ActiveCell, 2)



I have a hard time finding what I'm looking for in VBA help. Now I see
that Mid$ doesn't require that the length be specified. Very handy.


Andy