Formatting a header with VBA
 

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

--
Message posted from http://www.ExcelForum.com

Formatting a header with VBA
 

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

End Sub

--
Regards,
Tom Ogilvy

"universal" wrote in message
...
Hello All,

Im trying to place the contents of a cell in the header for my
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 into
one Macro that will print cell e61 to the header AND have it
microsoftSans size14? It seems at the moment that I cant have both!!

Many Thanks,
Eddie


---
Message posted from http://www.ExcelForum.com/

Formatting a header with VBA
 

Thanks very much Tom,

Seems so obvious in hidsight!!

E

--
Message posted from http://www.ExcelForum.com