Add date to each sheet using range from another workbook

[redspanna]

Hi all


My workbook named Monthly Report Template has a sheet named Info

I would like each sheet in my separate active workbook to have a date populated from the above workbook/sheet.

So for example...

each sheet in the active workbook would have F4 populated with the value of Info!C

eg..

Sheet1 cell ref F4 = Workbook - Monthly Report Template Sheet Info Range C2
Sheet2 cell ref F4 = Workbook - Monthly Report Template Sheet Info Range C3
Sheet3 cell ref F4 = Workbook - Monthly Report Template Sheet Info Range C4
and so on

hope this makes sense and thanks in advance

 

[redspanna]

this works for me...

Sub PopulateDates() 
    Dim wbReport As Workbook 
    Set wbReport = Workbooks("Monthly Report.xlsx") 
    i = 0 
    For Each ws In ActiveWorkbook.Sheets 
        ws.Range("F4").Value = wbReport.Sheets("INFO").Range("G2").Offset(i, 0).Value 
        i = i + 1 
    Next 
End Sub