Sub file_header()
	With ActiveSheet.Pagesetup
		.LeftHeader = "&P" 
		'左のヘッダにページ番号を指定します
        	.CenterHeader = "&D"
		'中央のヘッダに現在の日付を指定します
        	.RightHeader = "&F" 
		'右のヘッダにファイルの名前を指定します
        	.LeftFooter = "&N"
		'左のフッタに総ページ数を指定します
        	.CenterFooter = "&T"
		'中央のフッタに現在の時刻を指定します
        	.RightFooter = "&A"
		'右のフッタにシート名を指定します
	End With
End Sub

ヘッダやフッタに指定できる書式は次の通りです
&L このコードに続く文字列を左詰めに配置します。 
&C このコードに続く文字列を中央揃えに配置します。 
&R このコードに続く文字列を右詰めに配置します。 
&E 文字列を二重下線付きで印刷します。 
&X 上付き文字を印刷します。 
&Y 下付き文字を印刷します。 
&B 文字列を太字で印刷します。 
&I 文字列を斜体で印刷します。 
&U 文字列を下線付きで印刷します。 
&S 文字列を取り消し線付きで印刷します。 
&D 現在の日付を印刷します。 
&T 現在の時刻を印刷します。 
&F ファイルの名前を印刷します。 
&A シート見出し名を印刷します。 
&P ページ番号を印刷します。 
&P+ <数値> ページ番号に 指定した <数値> を加えた値を印刷します。 
&P- <数値> ページ番号から指定した <数値> を引いた値を印刷します。 
&& アンパサンド (&) を 1 つ印刷します。 
& " <フォント名> " 指定したフォントで文字を印刷します。フォント名は、必ず半角の二重引用符 (") で囲んでください。 
&nn 指定したフォント サイズで文字を印刷します。nn には、ポイント数を表す 2 桁の数値を指定します。 
&N ファイルのすべてのページ数を印刷します