using formula in Header/Footer 1

[Johnomill]

Hi,

I would like to modify the footer of my page before printing it with the name of my company-unitname. But the code interprets everything as string. Is there another sollution to this problem?

Unitname=Worksheets.Cells(r,k)
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular,UnitName"
End With
etc...

Best regards,

John

 

[JustinEzequiel]

assuming UnitName is a string variable,

.LeftFooter = "&""Arial,Regular""" & UnitName

 

[Johnomill]

Hi Justin,

I tried this one and it returns "False" as result in my footer. I declared UnitName as a stringvariable.

John

 

[DaleWatson123321]

John,

The following works. It only requires that you assign the range name "uname" to the cell in your workbook that contains the unit name.

Sub Set_Footer()
unitname = Range("uname&quot.Value
ftr = "CompanyName_" & Str(unitname)
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular," & ftr
End With
End Sub

Hope this helps.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca