範囲を選択しているかチェック

    '範囲選択しているかチェック
    If Application.Selection.Count = 1 Then
        '選択していない
        Exit Sub
    Else
        '選択している
        Exit Sub
    End If

参考