Ik heb deze macro opgenomen:
Private Sub CommandButton1_Click()
' Afdrukken,nummer verhogen en opslaan
   Application.ActivePrinter = "HP DeskJet 970Cxi op Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""HP DeskJet 970Cxi op Ne02:"",,TRUE,,FALSE)"
    Sheets("nummering").Select
    Range("F1").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Afdruk").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End SubDaarmee wil ik barcodes afprinten, ook de nummers verhogen, door het laatste nummer met één te verhogen en het te plakken op A1 en daarna alles opslaan.
Omdat er bij die barcodes een start en stopteken nodig is, begin ik op een werkblad met gewone volgnummers, op het tweede werkblad voeg ik dan de stop en starttekens toe.

Het probleem zit in de error 1004 bij uitvoeren van de macro, op dit: Sheets("nummering").Select .
Misschien is het duidelijker op het voorbeeldje.
Weet iemand hier iets op?
Het document is in oorsprong xlsm, maar gezien het doel is xls ook wel goed.
Ik gebruik dit gratis lettertype:
https://www.fonts4free.net/c39hrp24dhtt-font.html

Ha, die Leo. Ik zat hier met gekruiste vingers en dacht, als die Leo maar weer niet druk bezig is. 
Natuurlijk werkt het weer perfect, waarvoor dank.