So ermitteln Sie die eingesetzte Excelversion:

Sub Version()
    v = Application.Version
    If v = "8.0" Then t = "Excel 97"
    If v = "9.0" Then t = "Excel 2000"
    If v = "10.0" Then t = "Excel 2002"
    MsgBox t
End Sub