Have code pulled from group seems my location is wrong or something get error
on
pCnt=inputbox yellows this line prior to inserting this worked ok note 2nd
ActiveWindow checked out after insert input
Correction Thanks


With Sheets("Check_In")
pCnt = InputBox("How Many Copies")
ActiveWindow.SelectedSheets.PrintOut Copies:=pCnt, Collate:=True
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.pagesetup.PrintArea = "A2:D" & Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.pagesetup
.PrintGridlines = True