Sub 目次項目名が変更されていないかチェックする()

    項目名判定 = "変更されている" '最初に変更されている判定を入れる
    
    If Range("A1") = "会社名" Then '会社名をチェック
    
        If Range("B1") = "販売数" Then '↑問題ないので販売数をチェック
        
            項目名判定 = "問題なし" '2つ問題なかったので問題なしで上書き
            
        End If
        
    End If
    
    MsgBox 項目名判定

End Sub