Hi

Not sure I understand your requirement, if you run the previous macro or this
one. The macro will prompt you to select a range, once the selection is made by the user then it will define a print area and will make one copy of the selected cells.


Sub InputBoxTest()
Dim MySelection As Range
Set MySelection = Application.InputBox(prompt:="Select a range of cells", Type:=8)
MySelection.Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub