Sub Macro1()
' Macro recorded 04.11.2011 by Hugo
'

    With Range("A5")
        With .Characters(Start:= 2 , Length:= 1 ).Font
            .Name = "Arial"
            .FontStyle = "Полужирный"
            .Size =  12 
            .ColorIndex =  3 
        End With
        With .Characters(Start:= 3 , Length:= 1 ).Font
            .Name = "Arial"
            .FontStyle = "Курсив"
            .Size =  16 
            .ColorIndex =  4 
        End With
    End With
End Sub