EXCELのワークシートのヘッダーで、日時を和暦にする

ThisWorkbookのVBAに以下を追加

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  ActiveSheet.PageSetup.RightHeader = Format(Date, "ggge年m月d日")
End Sub