Error Handler to check for not data found

[Av8tordude]

I have this code that I want to display if no data is found, however it does not work as expected. What can be the problem? Thanks

Dim myRange As Range

Rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("AT14:AV15"), Unique:=False

On Error Resume Next
Set myRange = Range("A15:A" & LRow).SpecialCells(xlVisible)
On Error GoTo 0


If myRange Is Nothing Then
    MsgBox "no cells"
End If

 

[Michael M]

you haven't dimmed Rng in the second line !!

 

[Av8tordude]

Hi micheal, In my code, its there, I didn't posted here. Any suggestion?