code for sheet tab name

[dennisli]

Good morning, everyone,
I have a code attached in file named DataSource.
In this workbook, there is a range I23:I24 in worksheet named Index. The range actually includes sheet tab names used in another file named ProductReport. I want this code to perform the following simple actions on ProductReport. It just did not work.
Any ideas?
Thanks lot.
DL

ITDReport = "ProductReport.xlsm"
Thisworkbook.Activate
    For Each cell In Worksheets("Index").Range("I23:I24")
            Set ws = Worksheets(cell.Text)
                ITDReport.Activate
                ws.Activate
                   With Range("C26:F26")
                        .Formula = "=A1+A2"
                   End With
    Next

 

[shg]

Maybe ...

    Dim wkbRep      As Workbook
    Dim cell        As Range

    Set wkbRep = Workbooks("ProductReport.xlsm")

    For Each cell In ThisWorkbook.Worksheets("Index").Range("I23:I24")
        With wkbRep.Worksheets(cell.Text)
            .Range("C26:F26").Formula = "=A1+A2"
            .Range("A1:A3").Font.Bold = True
            '...
        End With
    Next cell

 

[dennisli]

perfect. have a good day.

 

[shg]

You're welcome, you too.