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

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

Dim apb
apb = Application.Version

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

End If

End Sub