filter verwijderen vba excel

[Noro]

Beste,

In mijn excel model heb ik onderstaande code toegevoegd. Deze code moet een beveiligd blad als eerste ontgrendelen, vervolgens de auto filter wissen, de data verwijderen en als laatste het wachtwoord weer erop zetten. Het gaat fout bij het wissen van de filter (zie rood gearceerd) dit wil de code niet uitvoeren. Zou iemand mij kunnen helpen wat er mis gaat in deze code?

alvast bedankt!

Noro



Sub Leegmaken()
'
' Leegmaken Macro
'

'
Sheets("data blad").Select
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
s.Unprotect Password:="2014icp"
Next s
ActiveSheet.ShowAllData Range("A2:AW2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("G10").Select
For Each s In ActiveWorkbook.Sheets
s.Protect Password:="2014icp"
Next s
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets("Home").Select
End Sub

 

[edmoor]

Er staan 2 opdrachten in 1 regel. De Range opdracht achter het rode gedeelte hoort daar niet, die moet naar de volgende regel. Daarnaast is het niet nodig om alle bladen te ontgrendelen als je die bewerking alleen op "data blad" wilt uitvoeren.


Tip:
Als je code plaatst, maak dan de code even op met de codetags: [ CODE] en [ /CODE]
Maar dan zonder de spatie na het [ teken.
De code kan trouwens ook een stuk korter geschreven worden.

 

[Noro]

Wederom bedankt!