'делает "жирным" текст после последней "точки" в ячейке. Принимает в качестве аргумента ячейку.
Sub setBold(rCell As Range)
     Dim strt&
     With rCell
         strt = InStrRev(.Value, ".") + 1
         If strt > 0 Then .Characters(Start:=strt, Length:=Len(.Value)).Font.FontStyle = "полужирный"
     End With
End Sub

'Пример использования
Sub setBoldFirstCell()
     setBold ActiveCell
End Sub

Private Sub CommandButton1_Click()
       Dim iStart&, sSearchString
       With Sheets("Лист1")
           .Cells(1, 1) = TextBox1.Value
           sSearchString = "Заместитель чегото там"
           If .Cells(1, 1) Like "*" & sSearchString & "*" Then
               iStart = InStr(.Cells(1, 1).Value, sSearchString)
               With .Cells(1, 1).Characters(Start:=iStart, Length:=Len(.Cells(1, 1).Value) - iStart + 1).Font
                   .Bold = True
                   .Italic = True
                   .Size = 12
               End With
           End If
           .Range("A1:C3").PrintOut Copies:=1
       End With
End Sub

Sub Макрос2()
'
' Макрос2 Макрос
' Макрос записан 28.12.2014 (SkorpikaCom)
'

'
      
     With Cells(13, 1).Characters(Start:=1, Length:=33).Font
         .Name = "Times New Roman"
         .FontStyle = "курсив"
         .Size = 11
         .Strikethrough = False
         .Superscript = False
         .Subscript = False
         .OutlineFont = False
         .Shadow = False
         .Underline = xlUnderlineStyleNone
         .ColorIndex = xlAutomatic
     End With
     With Cells(13, 1).Characters(Start:=34, Length:=105).Font
         .Name = "Times New Roman"
         .FontStyle = "полужирный курсив"
         .Size = 11
         .Strikethrough = False
         .Superscript = False
         .Subscript = False
         .OutlineFont = False
         .Shadow = False
         .Underline = xlUnderlineStyleNone
         .ColorIndex = xlAutomatic
     End With
End Sub

instrrev =instr