Okay Dave. Can't sleep so played around with your code, and it most definitely works when I use activeCell. But the following code doesn't

Sub textme(

Dim myStr As Strin
Dim colonPos As Lon
Dim cell As Rang

For Each cell In Range("a1:a15"
myStr = cell.Valu
colonPos = InStr(1, myStr, ":"
If colonPos 0 The
myStr = Mid(myStr, colonPos + 1
End I
Next cel

End Su

Any idea why? (thanks again

Robbyn