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...

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...

You would get that error if you don't have an autofilter on the worksheet.

With the autofilter dropdowns showing, no problem

? activesheet.autofilter.Range.address
$C$5:$C$17


--
Regards,
Tom Ogilvy

"Jim May" wrote in message
news:Q1P_e.123079$Ep.58874@lakeread02...
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...