Formatting a cell range in the Header using VBA

[stevecri1]

Hi All,

I have had a look and cant quite seem to find what I am looking for so hoping someone much clever than I will be able to help me out

I want to change tge formatting of my headers using VBA - the issue I am having is that I want to use a cell range as my header info

What I have got so far :

Sub SaveAs1()
Sheets("Event Info").Select
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.CenterHeader = ActiveSheet.Range("E3").Value
ws.PageSetup.RightHeader = ActiveSheet.Range("E2").Value
Next ws



So what I want is the centre and the right header to be Red and also bold with a larger font size. But without altering 'E3' & 'E2' formatting


Thank you in advance

Steve

[1aaaaaaaaaaaaaaa]

Please attach an example workbook.

[Greg M]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

The highlighted values may be altered to suit your own requirements,


Hope this helps - please let me know how you get on.

Regards,

Greg M