This is the last bit of code that i run...

Sub chkWkbclose()
'
Dim wkb As Integer

On Error Resume Next
Application.IgnoreRemoteRequests = False
Application.DisplayAlerts = False
Application.ScreenUpdating = True
wkb = Application.Workbooks.Count
If wkb <= 2 Then
Application.Quit
Else
ActiveWorkbook.Close
End If

End Sub

--
Les


"Jim Rech" wrote:

except at the end when i want to close it

Close what? The workbook? Look at your Workbook Before_Close code in the
ThisWorkbook module if so.

--
Jim
"Les" wrote in message
...
| Hi all,
|
| i have code that runs perfectly and does all that i want it do, except at
| the end when i want to close it, i get an error message "Run-Time error
'424'
| Object required".
|
| When i F8 my way through it runs perfectly
|
| it is driving me crazy as i cnnot find the problem !!!
|
| Any help would be welcomed with much happeness.
| --
| Les