Macro werkt niet meer

Deze macro heeft gewerkt en sinds over naar office 2016 hier een probleem mee:
Macro:

Sub test()
'
' test Macro
'

'
Sheets("Invulblad").Select
Range("B21").Select
End Sub


Geeft onderstaande als fout (57121):

Sheets("Invulblad").Select


De naam klopt precies in het werkblad, daar kan het niet aan liggen

Wat is hier fout?

Erik

Niks van te zeggen zo. Laat je document zien.
Of probeer dit eens:

Zie Edmoor zijn opmerking.
Wat wil je bereiken??
Op zich is uw macro gewoon waardeloos.
maar uw zelfde waardeloose macro iets korter

@ Ed, ik had postje 2 niet gezien.

Dat geeft niks natuurlijk
Ik ben ook benieuwd naar het nut van die macro.

Het maakt deel uit van een grote macro waarvan deze laatste het niet doet:

Macro is:

Sheets("Printblad UGM").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad AOWhiaat").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad Pensioen met AOW").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("113,8%").Select
Sheets("Printblad113,8%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad121,8%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Invulblad").Select
Range("B21").Select



Deze laatste werkt dus niet


Erik

En de suggesties heb je al uitgevoerd?

Daarnaast is het niet je document en is ook niet duidelijk in welk event deze macro staat omdat je de header er niet bij hebt gezet.

Bedoel je zo:

Sub Printen01071968()
'
' Printen01071968 Macro
'

'


Sheets("Printblad UGM").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad AOWhiaat").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad Pensioen met AOW").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("113,8%").Select
Sheets("Printblad113,8%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Printblad121,8%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Invulblad").Select
Range("B21").Select
End Sub

Ja, maar ik begrijp niet waarom je niet gewoon je document plaatst.
Op m'n vraag in #7 heb je niet geantwoord.

Mij lijkt dit wel voldoende.


Nb. lees dit linkje even.