CommandButton met VBA werkt niet

[toontje80]

ik heb een command button gemaakt en nou wou ik dat als ik op de knop druk ik naar een word document ga.
ik heb in de VBA het volgende gevonden:

Private Sub CommandButton2_Click()
Sub OpenWordDoc()
Set Wordapp = CreateObject("Word.Application")
Set Worddoc = Wordapp.Documents.Open(Filename:="N:\Users\Arie\My Documents\Aanvraag- en meldformulieren\Aanvraag zeugenexport Animo nieuw.doc")
Wordapp.Visible = True

End Sub

maar op een of andere manier werkt hij niet, weet iemand wat hier fout aan is want ik heb al vanalles geprobeert maar ik kom er niet uit.
ps de "N" schijf is een server, kan het misschien daarom niet?

 

[snor]

ps de "N" schijf is een server, kan het misschien daarom niet?

Werkt het wel als je het bestand gewoon in je C wil laten maken?

 

[toontje80]

Werkt het wel als je het bestand gewoon in je C wil laten maken?

ik heb het bestand in mijn C-directory gekopieerd en nogmaals geprobeert.
hij komt elke keer met de melding:
Compileer fout
er word End Sub verwacht
op de eerste regel van Private Sub CommandButton_2 Click ()

ojee, wat doe ik fout?

 

[Tardis]

Je hebt 2 subs in je code staan, 1 end sub, dus in ieder geval mist er een End Sub.

Tardis

 

[Wigi]

Haal dit eruit:

Sub OpenWordDoc()

Wigi

 

[toontje80]

ja.... hij doet het, kei bedankt.

 

[Wigi]

My pleasure