G'day

Try
Sub Remove_Characters()
Range("a1") = Left(Range("a1").Value, Len(Range
("a1").Value) - 6)
End Sub

Tony
-----Original Message-----
Hello

I have a cell containing characters in A1
The Characters are right aligned. I want to delete the
righmost 6 characters
in the cell.
I am trying something like

Sub Remove_Characters()
Anystring = Range("a1")
MyStr = Right(Anystring,6)
MyStr Delete
End Sub

It isn't working. Am I using Delete in the correct
context?

Thanks
I am running Win XP Pro and Excel Office XP


.