VBA excell Label aan worksheet-cell toekennen

[Verwijderd]

Mijn vraag
Goedenmiddag
In VBA-Excell wil ik aan een worksheet-Cell (bv. A1) een label toekennen (bv. toggle).
Vervolgens wil ik deze label uitlezen, inhoud checken en vervolgens een waarde aan toekennen.
Ik wil via deze macro rijen verbergen/zichtbaar maken als toggle wordt gechecked op ) of 1
Wie kan mij hierbij helpen?

Sub knop_open_dicht_Netto()
Dim toggle As Integer
Dim aantal As Integer
Dim startrow As Integer

toggle = Range("A7").Value
aantal = Range("B7").Value
startrow = Range("C7").Value
cursurpos = Range("D7").Value

Lastrow = startrow + aantal - 1
aantalrijen = startrow & ":" & Lastrow

If toggle = 1 Then 'openen
Rows(aantalrijen).EntireRow.Hidden = False
Range("D7").Select 'Ik wil "D7" de label "cursorpos" invullen.
Range("A7").Value = 0 'Ik wil "A7" de label "toggle" invullen.
Else: ' dicht
Range("A7").Value = 1 'Ik wil "A7" de label "toggle" invullen
Rows(aantalrijen).EntireRow.Hidden = True
Range("D7").Select 'Ik wil "D7" de label "cursorpos" invullen
End If
End Sub

Relevante software en hardware die ik gebruik
VBA excell 2016...

Wat ik al gevonden of geprobeerd heb
Bovenstaande Macro

[Broken]

Wat werkt en wel of niet aan?

Pas op, de functies willen nog wel eens wisselen tussen versies van Excel.