Faydalı olabileceğini düşündüğüm bazı ayarlar aşağıdadır.
Lisans istemiyorum.
(Sözüm meclisten dışarı)
[code=vba]
Function GetAppVersion() As String
Select Case Fix(Val(Application.Version))
'Case 14.01 And 14.99 'Office 2011 - MAC
'
Case 14
GetAppVersion = "Office 2010"
Case 12 '13 versiyonu yayınlanmadı/atlandı.
GetAppVersion = "Office 2007"
Case 11
GetAppVersion = "Office 2003"