try this
Sub findslash()
For Each c In Selection
x = InStr(c, "\")
'MsgBox x
c.Offset(, 1) = Right(c, Len(c) - x)
Next
End Sub

--
Don Guillett
SalesAid Software

"Jeff" wrote in message
...
I want to copy part of the text from one column to another. The text
has a \ in it and I need everything to the right of the \. If cell a
has adcd\efg and I was coping it to cell b then cell b would have efg.


Thanks