Printing every worksheet beyond a specific worksheet automatically

[WxShady13]

I have a workbook that contains numerous worksheets. I want to be able to have a macro that will automatically print every worksheet beyond the specific one when a button is clicked. Is this possible?

 

[DanteAmor]

Try this:

Sub Print_Every_Worksheet()
    'Printing every worksheet beyond a specific worksheet automatically
    '
    hoja = InputBox("Write the name a specific worksheet", "PRINT SHEETS")
    If hoja = "" Then Exit Sub
    '
    For Each h In Sheets
        If LCase(h.Name) = LCase(hoja) Then
            n = h.Index
            Exit For
        End If
    Next
    If n = 0 Then
        MsgBox "There is no sheet with the name : " & hoja
        Exit Sub
    End If
    '
    For i = n To Sheets.Count
        Sheets(i).PrintOut
    Next
    MsgBox "End"
End Sub

 

[WxShady13]

That works great, however it errors out after printing 14 worksheets. There are 4 more left to print out and are the same as the others. Any idea why it errors out after 14 and does not complete?

 

[DanteAmor]

That works great, however it errors out after printing 14 worksheets. There are 4 more left to print out and are the same as the others. Any idea why it errors out after 14 and does not complete?

What error message do you send?
And in which line of the macro does it stop?



Put the following instruction at the beginning of the macro and try again

On Error Resume Next

 

[WxShady13]

Wow with that code I did not get an error at all!

 

[DanteAmor]

I'm glad to help you

 

[WxShady13]

Seriously thank you!!! This is tremendous and will be used daily!