Macro To Use Cells On Another Sheet For Print Headers/Footers

My problem is that the data I want to add to the headers is in another sheet. Is there a way to modify this code.

1. Currently I have an excel sheet with macros that open other workbooks.
2. I select the macro to open a saved workbook. lets call it "apples"
3. I want to modify "apples" footers.

The data to insert in the header is located in my original workbook with the macros in a sheet called names. Here is the code I would like to modify:

Sub Create_Header()
With ActiveSheet.PageSetup
Dim lh_top, cntr_top, rh_top
lh_top = Cells(3, 2)
cntr_top = Cells(6, 2) & vbLf & Cells(7, 2)
rh_top = Cells(4, 2) & " " & Cells(5, 2)
.LeftHeader = lh_top
.CenterHeader = cntr_top
.RightHeader = rh_top
End With
End Sub