[vba]
ActiveSheet.PageSetup.LeftFooter = "Prepared for: " & Replace(FName.Caption, "&", "&&") & Chr(10) & "something else" [/vba]