macro to bold just first word of a cell

[jepalmer]

I need a macro that will bold just the first word of a cell in which there is existing text. (Excel 2007). I tried recording a macro, but every time I use it, it just changes cell to whatever the first cell was.

Suggestions.?
Thanks

[RetiredGeek]

This should do the trick.

Option Explicit

Sub BoldFirstWord()
'
    Dim lEnd  As Long
    
    If WorksheetFunction.IsText(ActiveCell.Value) Then
      With ActiveCell
          lEnd = InStr(1, .Text, " ", 1) - 1
          .Characters(Start:=1, Length:=lEnd).Font.FontStyle _
            = "Bold"
      End With
    End If
    
End Sub

[sdckapr]

If you modify Retired Geek's code you can have it bold all the first words in a selected range of cells:

Steve

Option Explicit
Sub BoldFirstWordInSelection()
  Dim lEnd  As Long
  Dim rCell As Range
  For Each rCell In Selection
    If WorksheetFunction.IsText(rCell.Value) Then
      With rCell
        lEnd = InStr(1, .Text, " ", 1) - 1
        .Characters(Start:=1, Length:=lEnd).Font.FontStyle _
          = "Bold"
      End With
    End If
  Next
End Sub

[jepalmer]

works.
thanks!!