■Module1 Public evFlag As Boolean Public selectedRange As Range
Public Sub GetRange() MsgBox "セルを選んでください" evFlag = True End Sub
Public Sub 次の処理() MsgBox selectedRange.Address & "が選ばれました" End Sub
■Sheet1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If evFlag = False Then Exit Sub Set selectedRange = Target evFlag = False Call 次の処理 End Sub
