Code Opens Older Version of Excel

Question

I have the following code to open a new Excel workbook but it always opens 2003 when I am wanting to use 2010. I realize this is probably due to the fact I am using 2010 but my default version is 2003. Removing 2003 from my PC is not an option and my IT has not been able to set 2010 as the default (they don't know why). Is there a way to change the following code to make it start up 2010 please? Thanks in advance.          

Sub Export_to_excel()

                    On Error GoTo err

                    Dim xlApp As New Excel.Application

                    Dim xlWB As New Workbook

                    Set xlWB = xlApp.Workbooks.Add

Answer 1

Try the following. Note the variables dimensioned as Objects.  (not New)

Sub Export_to_excel()

    Dim xlApp As Object

    Dim xlWB As Object

    Set xlApp = CreateObject("Excel.Application.14")

    xlApp.Visible = True

    Set xlWB = xlApp.Workbooks.Add

End Sub

Answer 2

Try the following. Note the variables dimensioned as Objects.  (not New)

Sub Export_to_excel()

   

    Dim xlApp As Object

    Dim xlWB As Object

   

    Set xlApp = CreateObject("Excel.Application.14")

   

    xlApp.Visible = True

   

    Set xlWB = xlApp.Workbooks.Add

   

End Sub

Excellent! Works like a charm. Thanks very much.