Maybe this will solve your immediate problem:

Option Explicit
Sub testme()

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
With wks
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
Next wks
End Sub

I'm not sure what's causing your other error, though.

Daniel Bonallack wrote:

I have code that loops through a workbook, copies the
contents of each sheet and pastes it to another workbook.

For each sheet I have this line:
ActiveSheet.ShowAllData

Most of the sheets are not filtered, so at this line the
code jumps into the error handler, where "Resume Next" is
waiting to push it back up into the loop.

The problem is this:
On the eighth sheet without filters, I get a debug error
on the ShowAllData line - it's like the errors are
stacking up. Can someone tell me what's happening, and
how to avoid this problem?

Thanks in advance.
Daniel

--

Dave Peterson