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

--
Don Guillett
SalesAid Software

"ebraun01" wrote in
message ...

Perfect, works great. Now is there a way to tell it when to run at a
time of my choosing. In other words I would prefer to not just have the
formula within the cells but to hit a button or run a macro and have the
formula ran.


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