Function verzija()
Dim Ver As Integer
Dim Str As String
Ver = Val(Application.Version)
Select Case Ver
Case 8
Str = "Excel 97"
Case 9
Str = "Excel 2000"
Case 10
Str = "Excel 2002"
Case 11
Str = "Excel 2003"
Case 12
Str = "Excel 2007"
Case 14
Str = "Excel 2010"
Case 15
Str = "Excel 2013"
Case 16
Str = "Excel 2016"
Case Else
Str = "Nepoznata verzija"
End Select

MsgBox Str
End Function