Where do i add this

[facebuddies]

Hi

Can someone please help me as to how and where i should load this code (Is it a macro?)

Sub split_at_spaces()
Do While ActiveCell.Value <> Empty
If InStr(ActiveCell.Value, " ") <> 0 Then
ActiveCell.Offset(1, 0).Value = _
Right(ActiveCell.Value, Len(ActiveCell.Value) - _
InStr(ActiveCell.Value, " "))
ActiveCell.Value = Left(ActiveCell.Value, _
InStr(ActiveCell.Value, " "))
End If
ActiveCell.Offset(1, 0).Select



Thanks Guys

:-)

[facebuddies]

Hurray i worked it out in the end! Got a headache now lol

:-)