A little simpler (eliminates the double Split function call)...Alternatively use this UDF:
)Code:Function FirstX(MyText As String, X As Long) FirstX = UCase(Left(MyText, X) & Left(Split(MyText, " ")(UBound(Split(MyText, " "))), X)) End Function
Function FirstX(S As String, X As Long)
FirstX = UCase(Left(S, X) & Mid(S, InStrRev(S, " ") + 1, X))
End Function