Für den Anfang würde man sich mal die entsprechenden Werte ausgeben/ansehen.

1. Markiere einmal eine Zelle mit schwarzem X und lass das Makro durchlaufen,
2. anschließend markiere eine Zelle mit grauem X und lass das Makro durchlaufen
3. und dann vergleiche die Werte miteinander auf Unterschiede.

Sub DebugCellFormat()
    With ActiveCell
        Debug.Print "["; .Address; "].NumberFormat:"; Tab(30); .NumberFormat
        Debug.Print "["; .Address; "].Font.Name:"; Tab(30); .Font.Name
        Debug.Print "["; .Address; "].Font.Size:"; Tab(30); CStr(.Font.Size)
        Debug.Print "["; .Address; "].Font.Bold:"; Tab(30); .Font.Bold
        Debug.Print "["; .Address; "].Font.Color:"; Tab(30); CStr(.Font.Color)
        Debug.Print "["; .Address; "].Font.ColorIndex:"; Tab(30); CStr(.Font.ColorIndex)
    End With
End Sub