macro to bold just first word of a cell

Topic

New Reply

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

Reply | Quote

Replies

This should do the trick.

Code:

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

:cheers:

May the Forces of good computing be with you!

RG

PowerShell & VBA Rule!
Computer Specs

Reply | Quote

works.
thanks!!

Reply | Quote

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

Steve

Code:

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

Reply | Quote