Hi
Format your selection as text first, not general.
regards
Paul

On Dec 3, 10:10*am, al wrote:
On Dec 3, 1:36 pm, Mike H wrote:





Hi,

Try this

Sub test()
On Error Resume Next
For Each sen In Selection
* * sen.Value = Left(sen.Value, InStr(1, sen.Value, " ") - 1)
Next
End Sub

Mike

"al" wrote:
Can someone modify the macro below so that it works on a selection of
cells or give me an alternate macro.Thxs

Sub test()
* * Dim space As Integer, sen As String * * * * Dim fword As String
* * sen = ActiveCell.Value
* * space = InStr(1, sen, " ")
* * fword = Left(sen, space - 1)
* * *ActiveCell.Value = fword
End Sub

Hi mike,
it's fine but a text like "0234 mike" gives 234 instead of 0234 - can
you help- Hide quoted text -

- Show quoted text -