エクセルのバージョンを調べて、結果で分岐させる。

エクセルファイルを開くときに、
エクセルのバージョンを調べて、結果で分岐させる。

Sub Auto_Open()

Dim apb
apb = Application.Version
<h7></h7>
 If apb <> "14.0" Then
 MsgBox "このバージョンでは使えません。2010で開きなおしてください。"
 ThisWorkbook.Close
 Exit Sub
 Else

 End If

End Sub