Определение используемой версии Excel

'==============================================================================================

' ##### Определение используемой версии Excel

'

'----------------------------------------------------------------------------------------------

Function FnExVersion() As String

Select Case Val(Application.Version)

Case Is <= 8: FnExVersion = "-" '"Microsoft Excel 20-го века"

Case 9: FnExVersion = "2000"

Case 10: FnExVersion = "2002"

Case 11: FnExVersion = "2003"

Case 12: FnExVersion = "2007"

Case 14: FnExVersion = "2010"

Case 15: FnExVersion = "2013"

Case 16: FnExVersion = "2016"

Case Else: FnExVersion = "-" '"Версия не определена"

End Select

' MsgBox "Вы работаете в " & Ver

End Function

'==============================================================================================

Sub Version()

Select Case Val(Application.Version)

Case Is <= 8: Ver = "Microsoft Excel 20-го века"

Case 9: Ver = "Microsoft Excel 2000"

Case 10: Ver = "Microsoft Excel 2002"

Case 11: Ver = "Microsoft Excel 2003"

Case 12: Ver = "Microsoft Excel 2007"

Case 14: Ver = "Microsoft Excel 2010"

Case 15: Ver = "Microsoft Excel 2013"

Case 16: Ver = "Microsoft Excel 2016"

Case Else: Ver = "Версия не определена"

End Select

MsgBox "Вы работаете в " & Ver

End Sub