should be
c.offset

Sub getfirstword()
lr=cells(rows.count,"f").end(xlup).row
For Each c In Range("f9:f" & lr)
c.offset(, 1) = Left(c, InStr(c, " ") - 1)
Next
End Sub

--
Don Guillett
SalesAid Software

"ebraun01" wrote in
message ...

Your right, I did ask for a macro.. must have taken my stupid pill that
day.

I created a macro and ran it and received a compile error. "sub or
function not defined" with "-Offset(, 1) =" -highlighted in blue. Do I
need to put something after the = but before the word "left"?


--
ebraun01
------------------------------------------------------------------------
ebraun01's Profile:
http://www.excelforum.com/member.php...o&userid=30340
View this thread: http://www.excelforum.com/showthread...hreadid=504474