Или так?  
Sub Макрос1()  
  For i = 1 To Sheets.Count  
     Sheets(i).AutoFilterMode = False  
  Next  
End Sub

Вот так:  
Sub Макрос1()  
  For i = 1 To Sheets.Count  
  Sheets(i).ShowAllData  
  Next  
End Sub  
Предыдущий макрос в прямом смысле сбросит.

Не-е-е...  
Я попробовал 2007 у друга на компе и решил, что я лучше на 2003 посижу...

Ну, я и сам уже допёр, что обработчика ошибок не хватает...  
Сделал два варианта:  
 
Sub Reset_All_Sheets_Filters_1()  
  Dim wsSh As Worksheet  
  For Each wsSh In Sheets  
     On Error Resume Next  
     If wsSh.AutoFilterMode Then wsSh.ShowAllData  
  Next  
End Sub  
 
Sub Reset_All_Sheets_Filters_2()  
  Dim i As Integer  
  For i = 1 To Sheets.Count  
     On Error Resume Next  
     Sheets(i).ShowAllData  
  Next  
End Sub  
 
и теперь не могу из них выбрать один (как Буриданов осёл, ей Богу!)

Ну, я конечно обработчик ошибок-то из цикла выну, хотя цикл-то и не длинный...  
А в один из макросов просто, закрыв глаза, ткну пальцем (в смысле мышкой).