如何在使用 Selection.SpecialCells(xlCellTypeVisible) 时检测何时未选择任何单元格？

Question

In my Sub I'm using below code to obtain user selected range.

Dim rng As Range
Set rng = Selection.SpecialCells(xlCellTypeVisible)

It works fine as long as user selects some cells/range. However whenever macro is called without selecting any cells, rng overflows and application freezes. Is there any way to detect if user hasn't selected any cells and exit safely?.

Answer 1

Is a range selected?

If TypeOf Selection is Range Then

Does the selected range have visible cells?

On Error Resume Next 'ignore error if there are no visible cells in the selected range
Set rng = Selection.SpecialCells(xlCellTypeVisible)
On Error Goto 0      'stop ignoring errors

If Not rng Is Nothing then
   'do something with rng
End If

Answer 2

Final Solution that I ended Up Using

Check if selection is a range and CountLarge greater than 1; Use ErrorHandler to deal with cases where no visible cell is selected.

If TypeOf Selection Is Range And Selection.CountLarge > 1 Then
    On Error GoTo ErrorHandler
    Set rng = Selection.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
'other bits of code
Else
ErrorHandler: 
'Inform user that macro only works with 2 or more visible cells selected
End If

Credits to @ BigBen for the comment and @ Tim Willams 's Answer