1 2 3 4 5 6 7 8 9 10 11 | Select Case Val(Application.Version) Case 7: iVersion = "Microsoft Excel 95" Case 8: iVersion = "Microsoft Excel 97" Case 9: iVersion = "Microsoft Excel 2000" Case 10: iVersion = "Microsoft Excel XP" Case 11: iVersion = "Microsoft Excel 2003" Case 12: iVersion = "Microsoft Excel 2007" Case 14: iVersion = "Microsoft Excel 2010" Case Else: iVersion = "Неизвестно ..."End SelectMsgBox "Работа идёт в " & iVersion |