Mijn Macro werkt niet. Weet iemand misschien wat dit kan zijn
REM ***** BASIC *****
Sub PrintALLES()
'
'Printalles Macro(PrintALLES)
'De macro is gemaakt op 15-2-2003 door Bert Bakker
'
ActiveWindow.SelectedSheeds.PrintOut Copies:=1, Collate:=True
For x = 9 to 23
y = x + 1
Application.Goto Reference:="R8C6"
Range ("g7:g57").Select
Selection.Replace What:="$" & x, Replacement:="$" & y, LookAt:=xlPart,_
SearchOrder:=xlByColumns, MatchCase:=False
ActiveWindow.SelectedSheets.Printout Copies:=1, Collate:=True
Next x
End Sub
REM ***** BASIC *****
Sub PrintALLES()
'
'Printalles Macro(PrintALLES)
'De macro is gemaakt op 15-2-2003 door Bert Bakker
'
ActiveWindow.SelectedSheeds.PrintOut Copies:=1, Collate:=True
For x = 9 to 23
y = x + 1
Application.Goto Reference:="R8C6"
Range ("g7:g57").Select
Selection.Replace What:="$" & x, Replacement:="$" & y, LookAt:=xlPart,_
SearchOrder:=xlByColumns, MatchCase:=False
ActiveWindow.SelectedSheets.Printout Copies:=1, Collate:=True
Next x
End Sub