write at exceltoexplore@gmail.com : Report Automation|Dashboard in Excel| Provide Excel consulting through macro (VBA) automation |Financial Modeling | Ethical Hacking

Monday, 27 May 2013

Excel : Find Excel Version

Try :


Sub Mtest()
Dim EVer As String
'Find excel EVersion
Select Case Application.Version
Case "5.0"
EVer = "Excel 5"
Case "7.0"
EVer = "Excel 95"
Case "8.0"
EVer = "Excel 97"
Case "9.0"
EVer = "Excel 2000"
Case "10.0"
EVer = "Excel 2002"
Case "11.0"
EVer = "Excel 2003"
Case "12.0"
EVer = "Excel 2007"
Case Is = "14.0"
EVer = "Excel 2010"
Case Else
EVer = "Unknown EVersion"
End Select
With Application
MsgBox EVer & vbCr & "Version: " & .Version & " Build: " & .Build
End With
End Sub

No comments:

Post a Comment