Formater til fed skrift hvis celler indeholder "(" samt slette tomme celler

Prøv med denne:

Sub Makro()
    Range("B1").Font.Bold = True
    Cells.Replace What:="""(""", Replacement:=""
    Range("C1:J1").ClearContents
End Sub

Hvis det er hele kolonner du ændre i, og ikke enkelte celler, skal du bare erstatte "Range" med "Columns" og fjerne 1-tallet i paranteserne:

Sub Makro()
    Columns("B").Font.Bold = True
    Cells.Replace What:="""(""", Replacement:=""
    Columns("C:J").ClearContents
End Sub

Var det det du ledte efter?