Try some code like


Dim Pos1 As Long
Dim Pos2 As Long
Pos1 = InStr(1, Range("A1").Text, " ")
If Pos1 = 0 Then
Exit Sub
End If
Pos2 = InStr(Pos1 + 1, Range("A1").Text, " ")
If Pos2 = 0 Then
Exit Sub
End If

Range("A1").Value = Left(Range("A1").Text, Pos1 - 1) & " " _
& Mid(Range("A1").Text, Pos2 + 1)





--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Shani" wrote in message
oups.com...
Example If cell A1= STEPHEN R WILSON
I would like A1=STEPHEN WILSON