I'm running an Excel macro from an Outlook module. I can automate this
process when a reminder kicks off. The macro has been working until this
week.

This is my variable: Public xlApp As Excel.Application

I create a new Excel application at the beginning of the macro:

Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Add

I then do some stuff and I now want to select the data and sort it

The next line works and the appropriate data is selected

xlApp.Range("A2:Y2").Select

However, when the next line is run, it kicks me out of the Outlook module

xlApp.Range(Selection, Selection.End(xlDown)).Select

Any ideas why this is happening? It had been working fine for several weeks
but now it won't finish. Any suggestions would be appreciated. Thanks for
the help...
--
JT

Sounds like you're hitting an unhandled error (and will probably want to add
error handling as a general principle). Selection by itself wouldn't mean
anything to Outlook code, but xlApp.Selection would be the cells that are
selected in the Excel application.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54




"JT" wrote:

I'm running an Excel macro from an Outlook module. I can automate this
process when a reminder kicks off. The macro has been working until this
week.

This is my variable: Public xlApp As Excel.Application

I create a new Excel application at the beginning of the macro:

Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Add

I then do some stuff and I now want to select the data and sort it

The next line works and the appropriate data is selected

xlApp.Range("A2:Y2").Select

However, when the next line is run, it kicks me out of the Outlook module

xlApp.Range(Selection, Selection.End(xlDown)).Select

Any ideas why this is happening? It had been working fine for several weeks
but now it won't finish. Any suggestions would be appreciated. Thanks for
the help...
--
JT