For Next Loop for Printing Selected Worksheets

[Hayden_E]

I have a workbook with 100+ worksheets.

I have setup a combobox for the user to enter minimum (MinSheet) and maximum (MaxSheet) value for printing a range of worksheets.

The worksheets are titled "LA1", "LA2", "LA3", thru to "LA50" plus many more.

What would the macro be for printing the range from "LA(MinSheet)" thru "LA(MaxSheet)"?

 

[Trebor76]

Hi Hayden_E,

Welcome to MrExcel!!

Just change the 'Combobox.Value1' and 'Combobox.Value2' variables to your specific combobox responses on the following:

Sub Macro1()

    Dim lngCounter As Long
        
    Application.ScreenUpdating = False

    For lngCounter = Combobox.Value1 To Combobox.Value2
    
        Sheets("LA" & lngCounter).PrintOut Copies:=1
        
    Next lngCounter
    
    Application.ScreenUpdating = True

End Sub

HTH

Robert

 

[Hayden_E]

Sorry for the delayed reply Trebor.

That worked.

Thanks very much.

 

[Trebor76]

No problem. Thanks for letting us know