Hjælp til redigering af vba kode

Denne kode virker perfekt når en bruger glemmer at rydde autofilter, inden han gemmer og lukker fil. Hvis autofilter er ryddet inden filen er gemt og lukket, kommer en dialogbox med flg. besked "Metoden ShowAllData for klassen Worksheet mislykkes", når filen åbnes igen. Hvordan slipper jeg for denne dialogbox når jeg åbner filen?

Private Sub Workbook_Open()
  Worksheets("Case list").Select
  ActiveSheet.Unprotect
        ActiveSheet.ShowAllData
        Range("B6").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows _
        :=True, AllowSorting:=True, AllowFiltering:=True
End Sub