Sub 
	Application.DisplayStatusBar = True
	'ステータスバーを表示させます
End Sub