Sorry, failed to add R/T comment:
Object Variable or With Block Variable not set


"Jim May" wrote in message
news:n_O_e.123078$Ep.67283@lakeread02...
In a standard module I have:
Any help appreciated.

Public Sub CopyFilter()
Dim rng1 As Range
Dim rng2 As Range
Sheets("POReqs").Select
With ActiveSheet.AutoFilter.Range <<< R/T Error Here _Why???
On Error Resume Next
Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1)
.SpecialCells (xlCellTypeVisible)
On Error GoTo 0
End With
.... more code follows...