Macro werkt niet

[Egbert12345]

Goedemorgen, zie mijn twee testbestanden, die bij elkaar horen.
"Hoofdprog.xlsm" is het besturingsbestand en "test.xlsm" is het sub bestand.
In "Hoofdprog.xlsm" cel A1 heb ik de naam ""test.xlsm" opgenomen, omdat ik soms een ander bestand gebruik en dan wordt eerst de inhoud van cel A1 aangepast.

De macro klapt op de macro: wat doe ik verkeerd?
groet Egbert

Private Sub CommandButton1_Click()
Unload Me
GezochteMap = Workbooks("hoofdprog.xlsm").Sheets("temp").Range("A1")
'Windows("hoofdprogr.xlsm").Activate
Workbooks("hoofdprog.xlsm").Activate
Workbooks(GezochteMap).Activate
Sheets("test3").Select
End Sub

 

[edmoor]

Wijzig:

GezochteMap = Workbooks("hoofdprog.xlsm")

GezochteMap = Workbooks("hoofdprogr.xlsm")

Verwijder de dubbele quotes die in A1 om test.xlsm staan.

 

[Egbert12345]

Misschien moet ik maar eens een nieuwe leesbril kopen. Bedankt maar weer.

 

[snb]

Vermijd 'Select' en 'Activate' in VBA: die zijn overbodig.