fout in macro

[maickel53]

Bekijk bijlage GR-print.xls.xlsm

Goedemorgen,

kan iemand helpen de fout in bijgevoegd document te herstellen?
wanneer je op de macro print knop drukt en kiest voor 100 exemplaren zou er doorgeteld moeten worden.
Helaas komt er nu alleen een fout melding.

Alvast bedankt,

Maickel

 

[edmoor]

En de foutmelding is?
Kijk ook even in de ThisWorkbook sectie.
Daar staat een Sub zonder End Sub en daar zal de compiler zich in verslikken.

 

[VenA]

De right constructie zal ook niet werken.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets(1)
    .Range("B3") = "GR" & Mid(.Range("B3"), 3) + 1
End With
End Sub

 

[maickel53]

het werk weer bedankt voor de hulp!!!