Formatting a header with VBA

[universal]

Hello All,

Im trying to place the contents of a cell in the header for m
PrintMacro. So Im using:

.PageSetup.LeftHeader = .Range("e61").Value

But would also like it to be a certain Font & Size, so am using:

With ActiveSheet.PageSetup
.LeftHeader = "&""Microsoft Sans Serif,Regular""&14"

Has anyone any ideas as to how I might combine these two commands int
one Macro that will print cell e61 to the header AND have i
microsoftSans size14? It seems at the moment that I cant have both!!

Many Thanks,
Eddi

 

[Tom Ogilvy]

Sub SetFooter()
With ActiveSheet
.PageSetup.LeftHeader = "&""Microsoft Sans Serif,Regular""&14" _
& .Range("E61").Value
End With

End Sub

 

[universal]

Thanks very much Tom,

Seems so obvious in hidsight!!

E