セルのフォントの色によって処理を変えたいという質問がありまして・・・

Sub Macro1()

    'フォントの色によって処理を変える
    Select Case ActiveCell.Font.Color
    
        Case vbBlack
        
            MsgBox "黒・自動"
                
        Case vbWhite
        
            MsgBox "白"
        
        Case vbRed
    
            MsgBox "赤"
    
    End Select
    
End Sub