Sub Macro1() res = InputBox("2を入力してください") If res = "2" Then MsgBox ("Macro1で2が入力") ElseIf res = "" Then MsgBox ("Macro1でキャンセル") Else MsgBox ("Macro1で2以外が入力") End If End Sub Sub Macro2() res = InputBox("2を入力してください") Select Case res Case "2" MsgBox ("Macro2で2が入力") Case "" MsgBox ("Macro2でキャンセル") Case Else MsgBox ("Macro2で2以外が入力") End Select End Sub