inputbox syntax location

[Guest]

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" & Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.pagesetup
.PrintGridlines = True

 

[Dirk Nachbar]

pcnt is a string, put val() around it

ActiveWindow.SelectedSheets.PrintOut Copies:=val(pCnt), Collate:=True

Dirk

 

[Guest]

put in the () still same problem

 

[Guest]

My dim statement was wrong
Thanks