Pessoal Boa Noite,

Este código abaixo estou adaptando para que em uma coluna quando houver células vazias ele coloque traços nestas células. Gostaria que alguém me ajudasse como faço para que estes traços sejam em negrito. Já fiz alguns testes mas ainda não consegui fazer que esta situação funciona-se. Agradeço novamente.

Sub Preenchecélulavazia()
    'Desliga a atualização da tela para melhorar o desempenho
    Application.ScreenUpdating = False
    On Error Resume Next
    'Olha para a célula C
    With ActiveSheet.Range("C3:C162")
        'Preenche células vazias com traços
        .SpecialCells(xlCellTypeBlanks).Value = "---"
        
        
    End With
    Err.Clear
    Application.ScreenUpdating = True
End Sub