Ayuda con macro!

Hola Dam, nuevamente solicitando tu valiosísimo apoyo, veras tengo una macro, que ya funciona pero necesito que las letritas me las ponga en negro, pero no se como incluirla en mi macro. Lo que hace mi macro que dependiendo del valor de una celda me pone la letra de color que le indico, pero requiero que me la ponga .BOLD y no logro hacerlo ya que me marca error. Me puedes ayudar...

Muchas gracias.

Anexo código

Sub colorlevantado() 
Dim celda, myrange As Range
 Dim Hoja As Worksheet
 Application.DisplayAlerts = False
Set myrange = Sheets("A").Range("V10:V" & Sheets("AC").Range("V" & Rows.Count).End(xlDown).Row)
 For Each celda In myrange
 Select Case celda
 Case "Cancelado": celda.Offset(0, -16).Font.ColorIndex = 45
 'Case "Proceso": celda.Offset(0, 1).Interior.ColorIndex = 3
 'Case "Devolución": celda.Offset(0, 1).Interior.ColorIndex = 4
 'Case "5": celda.Offset(0, 1).Interior.ColorIndex = 5
 'Case "6": celda.Offset(0, 1).Interior.ColorIndex = 6
 'Case "7": celda.Offset(0, 1).Interior.ColorIndex = 7
 'Case "8": celda.Offset(0, 1).Interior.ColorIndex = 8
 'Case "9": celda.Offset(0, 1).Interior.ColorIndex = 9
 'Case "10": celda.Offset(0, 1).Interior.ColorIndex = 10
 End Select
 Next celda
Set myrange = Nothing
End Sub