Hi

I have managed to write code to add the contents of a cell to the sheet
header.

This works ok but I need to alter the font size to 28 and nothing I have
tried works.

I tried pre setting the header to 28 but when I ran my code it reverted to
size 8
I tried setting the cell format to 28 but this did not work
I tried adding "&28" into my code but this just removed the value
altogether.

The code I am using is as follows

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.PageSetup.RightHeader = Range("A2").Value
End Sub

How do I modify this so the font is 28 size?

TIA

Kenny
XP Pro
Office 2003