With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
  .RightHeader = Format(Now(), "yyyy/mm/dd")
  .RightFooter = "&24&P"
End With
Font size in right footer is set at 24. But how do I set font size in right header?