Elke dinsdag op knop in vba

[tcgjohn]

Hoe kan ik elke dinsdag (de datum) weergeven op een knop? Dus als de dinsdag voorbij is moet de datum van de volgende dinsdag op de knop staan.(knop staat op formulier VBA)
Ik heb nu de code maar die werkt niet. (&.xls is een bestaand bestand met datum)
Sub KnpTournooidag()
Workbooks.Open Filename:= _
"\\2007\maart\" & Format(Date, "dd mmmm", vbTuesday) & ".xls"
wat moet hier nog aan gewijzigd worden.

alvast bedankt
John