No Cells Found Error Handling

[jaybee3]

How can I handle the "No Cells Found" error when using .SpecialCells(xlCellTypeBlanks) or .SpecialCells(xlCellTypeConstants)

or better yet, suggest something else to use

Background info:

I have a form, the user selects a value from a combobox. Using the selected value, a listbox beneath it is populated with various filters, only if filters exist for the selected value on a setup sheet, if not it hides the list box and shows an textbox so that the user can input a custom filter themself.

 

[p45cal]

Sub blah()
Dim rng As Range
Set rng = Nothing
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If rng Is Nothing Then
  MsgBox "Nothing found"
Else
  MsgBox "you found something"
End If
End Sub

 

[jaybee3]

Of course! On Error Resume Next, cheers! :D