Verzie Excelu

Sub zistiVerziuExcelu()
    If Application.Version = "16.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2016."
    ElseIf Application.Version = "15.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2013."
    ElseIf Application.Version = "14.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2010."
    ElseIf Application.Version = "12.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2007."
    ElseIf Application.Version = "11.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2003."
    ElseIf Application.Version = "9.0" Then
        Debug.Print "Pouzivate Microsoft Excel 2000."
    ElseIf Application.Version = "8.0" Then
        Debug.Print "Pouzivate Microsoft Excel 97."
    ElseIf Application.Version = "7.0" Then
        Debug.Print "Pouzivate Microsoft Excel 95."
    End If
End Sub