Vba script foutcode 80004005

Beste mensen van dit forum,

ik ben totaal nieuw in Vba schrijven maar met hulp gaat het steeds beter.

ik heb nu een scherm die je "uit" kan schakelen door op nee te zeggen.

Code:

---

Private Sub Worksheet_Activate()


Dim hidemessage As Boolean, p As Variant
If ThisWorkbook.CustomDocumentProperties.Count > 0 Then
    For Each p In ThisWorkbook.CustomDocumentProperties
        If p.Name = "hidemessage" Then hidemessage = False
       
    Next
End If
    If Not hidemessage Then
        If MsgBox("hoi papa en" & ActiveSheet.Name & vbNewLine & "Click no to not show this message again", vbYesNo) = vbNo Then
            ThisWorkbook.CustomDocumentProperties.Add "hidemessage", False, msoPropertyTypeBoolean, True
        End If
    End If


Worksheets(" Bas").Range("e8").Clear




End Sub

---

de schuine tekst geeft de foutmelding fout -2147467259 (80004005) Methode add van object documentproperties.

kan iemand mij hiermee helpen want dit is het enige wat fout gaat :S