Verzia Excelu

Sub zistiVerziuExcelu()


    Debug.Print Application.Name
    If Application.Version = "15.0" Then
        MsgBox "Pouzivate Microsoft Excel 2013."
    ElseIf Application.Version = "14.0" Then
        MsgBox "Pouzivate Microsoft Excel 2010."
    ElseIf Application.Version = "12.0" Then
        MsgBox "Pouzivate Microsoft Excel 2007."
    ElseIf Application.Version = "11.0" Then
        MsgBox "Pouzivate Microsoft Excel 2003."
    ElseIf Application.Version = "9.0" Then
        MsgBox "Pouzivate Microsoft Excel 2000."
    ElseIf Application.Version = "8.0" Then
        MsgBox "Pouzivate Microsoft Excel 97."
    ElseIf Application.Version = "7.0" Then
        MsgBox "Pouzivate Microsoft Excel 95."
    End If

End Sub