印刷時に中央に配置するヘッダーを設定するには、CenterHeaderプロパティを使います。
　次のステートメントを実行すると、ヘッダーにシート名が設定されます。

    ActiveSheet.PageSetup.CenterHeader = ActiveSheet.Name