Vba script foutcode 80004005

[basboy1991]

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.

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