On Tue, 23 Aug 2005 21:44:11 +0100, "Bob Phillips"
wrote:


iPos = Instr(1,Range("A1").Value,",")
If iPos 0 Then
Activecell.Value = Right(Range("A1").Value, _
Len(Range("A1").Value) - iPos)
End If

A slightly different approach. Hwever, *Range* is still the magic word.

Thank you.

Chuck
--