[usr] Problemas con una función heredada de Microsoft Office

[Carlos Cantelar]

Hola a todos,

TEngo una hoja de Calculo que se creó con Microsoft Excel, esta hoja contiene 
un boton que realiza una funcion muy sencilla, poner una celda determinada en 
negrita. no he conseguido ver cual es la función equivalente en OO Basic. 
Adjunto la función 

Private Sub CommandButton3_Click()
For y = 4 To 15
    Worksheets("Gastos Mensuales").Cells(y, 11).Font.FontStyle = "normal"
Next
For y = 4 To 15
        If Month(Date) = Worksheets("Gastos Mensuales").Cells(y, 7) Then
           Worksheets("Gastos Mensuales").Cells(y, 11).Font.FontStyle = "Bold"
        End If
Next
End Sub

El problema parece que radica en la función FontStyle y no encuentro su 
equivalente.

Agradezco cualquier ayuda.
Saludos.