not sure if this is what you want, but if your data is in A1, try either of
these:

Sub test()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
With ws
.Range("A1").Value = Replace(.Range("A1").Value, "Email: ", "")
End With
End Sub


Sub test2()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
With ws
..Range("A1").Value = Right(.Range("a1"), Len(.Range("a1")) - InStr(1, _
.Range("A1"), ":") - 1)
End With
End Sub




--

Gary
Excel 2003


"dstiefe" wrote in message
...
I have a cell that contains the following "Email: "

how do I delete the email and semicolon and move the actual email address
al
the way to the left of the cell

so I would be deleting the email word

thank you