Header in bold VBA

[callamhall]

Hi,

I am currently trying to create a VBA to show a cell value in the center header in bold, I have got the cell value to show in the header but I am unable to get this to go bold and font size 14?
I have tried a few methods but none have worked?
Code I use is below:

Sub HeaderFromB19()
ActiveSheet.PageSetup.CenterHeader = Range("B18").Value
End Sub

Thanks

 

[sykes]

Hi, and welcome to Mr. Excel!

This works:

Sub HeaderFromB19()
ActiveSheet.PageSetup.CenterHeader = "&B&14" &Range("B18").Value
End Sub

 

[callamhall]

Thanks!, that worked really well!

 

[sykes]

Pleasure. Glad it worked for you, and thanks for feeding back that it worked; this is so useful for others with the same question as yours, when they're looking for answers - to know which solutions worked.

This is such a good site for all things Excel.

All the best.