Hi
I have applied the following in order to filter across multiple sheets. I added the Errorcatch in after a 400 error appeared. The error is now appearing as Compile error: Label not defined. Then if I click 'ok,' the top line is highlighted yellow, with an arrow pointing to it from the left. If I right click on the arrow, and click 'Definition,' there is the error 'Identifier under cursor is not recognised'
This is the code I have entered. Can you please help with my error?
Sub apply_autofilter_across_worksheets()
On Error GoTo Errorcatch
Dim p As Integer, q As Integer
p = Worksheets.Count
For q = 1 To p
With Worksheets(q)
.Range("J22").AutoFilter field:=1, Criteria1:=">0.001"
End With
Next q
Exit Sub
End Sub
Much appreciated
Jenny
Bookmarks