VBA Excel Foute formule?

[Verwijderd]

Mijn vraag
Wat doe ik fout?

Relevante software en hardware die ik gebruik
Excel VBA

Wat ik al gevonden of geprobeerd heb

Sub Maatregelen()

If ActiveSheet.Shapes("Selectievakje 13").OLEFormat.Object.Value = True Then

ActiveWorkbook.Sheets("Instr.").Range("A58") = ActiveWorkbook.Sheets("Maatregelen").Range("A1")

End If

End Sub

Doelstelling van deze formule is dus als selectievakje 13 is aangevinkt dan moet hij in tabblad Instr. de gegevens van cel A1 van Tabblad Maatregelen weergeven.
Echter als ik het selectievakje aan vink, gebeurt er helemaal niets

Ik hoop dat iemand me kan helpen hiermee.

Grt. Daley

[Verwijderd]

Sorry, heb het probleem al gevonden.
True moet zijn 1