VBA Mac 2016: Help with Print Macro

[lexibeeson]

I am looking for help with a print macro I previously had when using a windows and no longer works on my Mac. When I try to re-record the macro it doesn't recognize the print function and when I tried to copy and paste the code I used on my PC it didn't work. I essentially need it to pull the first name off a separate worksheet, enter it into cell A1, then print, then grab the next name on the list, enter in cell A1, then print, etc. until it is done with the entire list. I'm not sure how to re-write the code, any help is greatly appreciated!

Previous code is below:

Sub PrintPg3()
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[2]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[3]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[4]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[5]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[6]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[7]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[8]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[9]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[10]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[11]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[12]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[13]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[14]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[15]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[16]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[17]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[18]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[19]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[20]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Range("A1:B1").Select
ActiveCell.FormulaR1C1 = "='Max #''s'!R[21]C"
Range("A2:N2").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End Sub