Macro to print sheets based on list

[manekankit]

Need help with macro to perform following task.

1. I have a file (Original file) with 5 sheets (Index, Report1, Report2, Report3, and Report4)
3. Colum C in Index sheet contains list of sheets which are to be sent for printing to the default printer (e.g. it contains Report1 and Report2 in cells C1 and C2 respectively). This list can increase or decrease.

Required:
Request you to help with macro code that will trigger print for sheets listed in column C of the Index sheet.

 

[Trebor76]

Hi manekankit,

Try this:

Option Explicit
Sub Macro1()

    Dim wsSrc As Worksheet
    Dim wsPrint As Worksheet
    Dim rngCell As Range
    
    Application.ScreenUpdating = False
    
    Set wsSrc = ThisWorkbook.Sheets("Index")
    
    For Each rngCell In wsSrc.Range("C1:C" & wsSrc.Range("C" & Rows.Count).End(xlUp).Row)
        If Len(rngCell.Value) > 0 Then
            On Error Resume Next
                Set wsPrint = ThisWorkbook.Sheets(CStr(rngCell.Value))
                If Err.Number = 0 Then
                    wsPrint.PrintOut Copies:=1
                End If
            On Error GoTo 0
        End If
    Next rngCell
    
    Application.ScreenUpdating = True

End Sub

Regards,

Robert