Thread: I just want to select the first word...
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
merjet merjet is offline
external usenet poster
  
Posts: 812
Default I just want to select the first word...
Dim iPos As Integer
Dim str1 As String

str1 = Sheets("Sheet1").Range("A1")
iPos = InStr(str1, " ")
if iPos 0 then str1 = Left(str1, iPos - 1)

Reply With QuoteReply With Quote