I want to add a reference to a cell value in the header of an excel 4 page.setup macro. I've been trying to re-work a macro that John Green posted.

I've been trying variations on:
Dim head
Dim psetup
Dim sProductivityWeek As String
sProductivityWeek = cStr(Range("WeekOf"))

head = """&LPRODUCTIVITY WEEK OF """ & sProductivityWeek

psetup = "PAGE.SETUP(" & head & ", etc.

Application.ExecuteExcel4Macro psetup

Thanks
Richard