ActiveWorkbook.SaveAsの1004save as methodエラー回避方法

■参考ページ
2000,2003,2007環境下でのマクロ保存コマンドについて


If Val(Application.Version) < 12 Then
ActiveWorkbook.SaveAs Filename:="ファイル名", FileFormat:=43 'Excel2003以下
Else
ActiveWorkbook.SaveAs Filename:="ファイル名", FileFormat:=56 'Excel2007
End If