セルに含まれるか

Sub Macro0501()
Dim cArea As Range
Set cArea = Application.Intersect(Selection, Range(“B2:E6”))
If cArea Is Nothing Then
MsgBox “選択された範囲は作業領域外です”
ElseIf cArea.Address = Selection.Address Then
MsgBox “選択された領域は作業領域内です”
Else
MsgBox “選択された範囲が作業領域からはみ出しています”
End If
End Sub