Dim SpacePos as long

For iCtr = 2 To OldLusedrow
OldString = ws.Range("B" & iCtr).Value
spacepos = instr(1, oldstring, " ", vbtextcompare)
if spacepos = 0 then
'no spaces, so no changes
else
ws.range("a" & ictr).value = left(oldstring, spacepos-1)
end if
next ictr

Maybe???????

Karen53 wrote:

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

--

Dave Peterson