Sub 値が指定範囲内なのか判定する()
    
    判定対象 = Range("A1")
    
    If 10 <= 判定対象 And 判定対象 <= 20 Then
        
        MsgBox "10以上～20以下の間です"
        
    Else
        
        MsgBox "10以上～20以下ではありません"
        
    End If
    
End Sub