Save this code in a *.vbs file

Option Explicit
Dim filePath, oExcel

filePath = "c:\Test.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(filepath)
oExcel.Run "macro1"
oExcel.ActiveWorkbook.Save
oExcel.ActiveWorkbook.Close
oExcel.Quit
set oSheet = Nothing
Set oExcel = Nothing

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Patrick Simonds" wrote:
| How can I run this code without making worksheet "Outstanding Checks"
| active?
|
| Sub Sort_Checks()
| '
| ' Sort_Checks Macro
| '
|
| '
| Sheets("Outstanding Checks").Select
| Range("A5:D22").Select
| ActiveWorkbook.Worksheets("Outstanding Checks").Sort.SortFields.Clear
| ActiveWorkbook.Worksheets("Outstanding Checks").Sort.SortFields.Add
| Key:= _
| Range("A5:A22"), SortOn:=SortOnValues, Order:=xlAscending,
| DataOption:= _
| xlSortNormal
| With ActiveWorkbook.Worksheets("Outstanding Checks").Sort
| .SetRange Range("A5:D22")
| .Header = xlGuess
| .MatchCase = False
| .Orientation = xlTopToBottom
| .SortMethod = xlPinYin
| .Apply
| End With
| Range("A4").Select
| End Sub
|
|