hjælp til makro

Jeg bruger at markere alle de celler der ikke er låst, og så give området et navn.

så kan de tømmes sådan, mit område hedder seddel

Public Sub SletSedler()
[seddel].ClearContents
End Sub

Det luder til en mere enkel løsning end den jeg roder med som jeg ikke kan få til at virke helt. mit spørgsmål er en del af spm.846429. kan din kode virke hvis den skal afvikles som beskrevet i det andet spm.
koden ser sådan ud der
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Timesedler").Select
    ActiveSheet.Unprotect
    ActiveSheet.Range("C8:N38").ClearContents
    ActiveSheet.Range("C52:N82").ClearContents
    ActiveSheet.Range("C96:N126").ClearContents
    ActiveSheet.Range("C140:N170").ClearContents
    ActiveSheet.Range("C184:N214").ClearContents
    ActiveSheet.Range("C228:N258").ClearContents
    ActiveSheet.Range("C272:N302").ClearContents
    ActiveSheet.Range("C316:N346").ClearContents
    ActiveSheet.Protect
    Sheets("Ark1").Select
    Range("c32").Select
    Application.ScreenUpdating = True
End Sub

MVH
Petert

Hvis du har knappen i et andet ark, skal koden se sådan ud

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets("Timesedler").Unprotect
    Sheets("Timesedler").Range("C8:N38").ClearContents
    Sheets("Timesedler").Range("C52:N82").ClearContents
    Sheets("Timesedler").Range("C96:N126").ClearContents
    Sheets("Timesedler").Range("C140:N170").ClearContents
    Sheets("Timesedler").Range("C184:N214").ClearContents
    Sheets("Timesedler").Range("C228:N258").ClearContents
    Sheets("Timesedler").Range("C272:N302").ClearContents
    Sheets("Timesedler").Range("C316:N346").ClearContents
    Sheets("Timesedler").Protect
    Application.ScreenUpdating = True
End Sub

Super kabbak det virker 100%
Jeg har et spm. til mit excel ark, som du måske har en løsning på.
Det kræver næsten at jeg sender dig en kopi af arket og en forklaring så vil det være meget lettere at beskrive.
Jeg har din mail adresse fra en tidligere gang du har hjulpet mig så fint.
Kan jeg sende det til dig?
MVH
Petert

send bare, men jeg ser den først i aften.

Super
MVH
Petert

Hej Læg et svar så jeg kan luke dette.
Tak for hjælpen
MVH
Petert

;-))

Jeg har desværre glemt og få ryddet op i dette.
Ha en forsat rigtig god sommer.
Mvh
Petert