http://www.ozgrid.com/forum/showthread.php?t=115687


Option Explicit

Sub Bold1stWord()
Dim rCell As Range

With Selection
.Cells.Copy
.Cells.PasteSpecial xlValues
Application.CutCopyMode = False
For Each rCell In .Cells
rCell.Characters(1, InStr(1, rCell, ":") - 1).Font.Bold = True
Next rCell
End With
End Sub