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