This should be a quick fix. I want to re-set the autofilter to show all on
workbook open. Problem is when it's already set to show all I get an error
msg.

Private Sub Workbook_Open()
'===============
'reset filter
'===============

Application.ScreenUpdating = False
ActiveSheet.ShowAllData

End Sub