This spreadsheet is used by different people using different versions of
Office. The purpose is to detect which version they are using and open the
proper Access database. It works for 2 version of Office but not 3.
I am wondering if you can have an On Error Goto ehandler3 under another On
Error Goto ehandler2??

"Mike H" wrote:

Hi,

I don't understand whay you mean by 'Same result'

try it in an empty sub with no other code

Sub version()
MsgBox Application.version
End Sub

Mike

"oldjay" wrote:

I inserted "ThisVersion = Application.Version" as the first line of the Sub.

Same result

"Mike H" wrote:

Hi,

Try this

ThisVersion = Application.Version

Mike

"oldjay" wrote:

I am trying to test for various versions of office.
The following doesn't work.
Need help


Private Sub CommandButton39_Click() 'Add new customer
Dim X As String
Dim Y As String
Dim Z As String

On Error GoTo ehandler3

X = Shell("C:\Program Files\Microsoft Office\Office\MSACCESS.EXE
\\SERVER3\database\customers.MDB", 1)
Exit Sub

ehandler3:
On Error GoTo ehandler4

Y = Shell("C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE
\\SERVER3\database\customers.MDB", 1)
Exit Sub

ehandler4:

Z = Shell("C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE
\\SERVER3\database\customers.MDB", 1)

End Sub