マクロ統合と条件分岐コード (Wチェック)

Sub Macroの統合()
    Call cmd_test1
    Call cmd_test2
    Call cmd_test3
    Call 条件
End Sub


--------------------------------------------------------------

Sub 条件()

（CMDからはきだされるsheet名をいれる）     
Dim Disable As Range
Set Disable = Worksheets("コマンド内容").Range("A2")



   （チェックシートのsheet名をいれる）
        If Disable.Value Like "*no*" Then
            Worksheets("チェックシート").Range("G4").Value = "重複アカウントなし"
            Range("G4").Interior.ColorIndex = 22　　　　←セル色付け
           
           ElseIf Disable.Value <> "TORIBUNWORKS" Then
            Worksheets("チェックシート").Range("G4").Value = "重複あり"
            Range("G4").Interior.ColorIndex = 0　　　　　←色付けしない
        
        End If
   
End Sub


------------------------------------------------------
色コード参照
https://www.tipsfound.com/vba/07006