unprotect

Hej

Jeg sidder med et problem med protect og unprotect.

Min kode er:
ThisWorkbook.Worksheets("Forside").Range("adr").Value = ""
ThisWorkbook.Worksheets("Forside").Range("vej").Value = ""
ThisWorkbook.Worksheets("Forside").Range("postnr").Value = ""
ThisWorkbook.Worksheets("Forside").Range("telefon").Value = ""
ThisWorkbook.Worksheets("Forside").Range("aabningstider").Value = ""
ThisWorkbook.Worksheets("Forside").unprotect ("pass")
With ThisWorkbook.Worksheets("Forside").Range("aabningstider").Comment
        .Visible = False
        .Text ""
End With
ThisWorkbook.Worksheets("Forside").protect ("pass")


Men jeg får en kørselsfejl 1004. Kommentaren bliver ikke slettet, men hvorfor ikke. Jeg kan ikke finde fejlen??
Er der nogen der har et forslag??

Hvis jeg laver en procedure med bare unprotect og en anden med protect virker det fint. Hvad kan der være galt?

Mvh
Lone