Just to add to this, I tried to shut the autofilter off and then on
again to clear the filter doesn't seem to work. Using this code

'OFF
Me.Spreadsheet1.ActiveSheet.AutoFilterMode = False
'ON
Me.Spreadsheet1.ActiveSheet.UsedRange.autoFilter