Sub EmptyTheBag()
'With...
Dim WkBk As Excel.Workbook
If Not IsError(.Cells(lr, "r")) Then
Application.Run "Office_Payroll_2"
For Each WkBk In Excel.Workbooks
If Not WkBk Is ThisWorkbook Then
WkBk.Close savechanges:=False
End If
Next
ThisWorkbook.Close savechanges:=False
Exit Sub
End If
'End With
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Helmut"
wrote in message
I have the following statement:

With...
If Not IsError(.Cells(lr, "r")) Then Application.Run "Office_Payroll_2"
End with

After it Runs the Macro "Office_Payroll_2" it continues in the current Macro.
But I want it to "Exit the Current Macro after running "Office_Payroll_2"
and close all open workbooks without saving.
what do I need to add?