The following code was provided to me by Tom Ogilvy.

Currently it runs against column C, and I need it to run on column F
instead. I tried experimenting with it to work it out but am getting nowhere
fast.

Can you help?

Thanks in advance.

Scott

Code:

Dim rng2 As Range, cell2 As Range, iloc As Long
Set rng2 = Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
For Each cell2 In rng2
iloc = InStr(1, cell2, " ", vbTextCompare)
If iloc < 0 Then
cell2.Offset(0, 1).Value = Mid(cell2.Value, iloc + 1, 255)
cell2.Value = Mid(cell2, 1, iloc - 1)
End If
Next