Hi Karen

Dim test as Integer
Dim Newstring as String

For iCtr = 2 To OldLusedrow
OldString = ws.Range("B" & iCtr).Value
Test=Instr(OldString," ")
If Test = 0 then
Newstring = Oldstring
Else
Newstring = Left(Oldstring, test)
End If
ws.Range("A" & iCtr).Value = NewString
Next


--
Regards
Roger Govier

"Karen53" wrote in message
...
Hi,

How would I catch the error if the string does not have a space in it and
save the value as it is in that case?

For iCtr = 2 To OldLusedrow
OldString = ws.Range("B" & iCtr).Value
ws.Range("A" & iCtr).Value = Left(OldString, InStr(OldString, "
") - 1)
Next

--
Thanks for your help.
Karen53