The macro below show how we can select multiple files to run Sub OpenMultipleFiles() Dim fn As Variant, f As Integer fn = Application.GetOpenFilename("Excel-files,*.xls", _ 1, "Select One Or More Files To Open", , True) If TypeName(fn) = "Boolean" Then Exit Sub For f = 1 To UBound(fn) 'run another macro to process the selected files Next f End Sub
If you want to setup the page to fit within one page for printing, you have to use the code below. It is important to add the .zoom=false line to switch off the zoom. Without it, the macro will not work.
With ActiveSheet.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With