I walked this through the recorder yesterday using two documents and it
worked fine. I put it into a major macro routine and made some minor
changes - and now it hangs! But it hangs where yesterday it worked fine!

Workbooks.Open Filename:="C:\NWACCESS\DATA\Sent Updates\Warning.xls"
Cells.Select
Selection.Copy
With wb3.Sheets(3)
Cells.Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With
Application.DisplayAlerts = False
Workbook.Activate Filename:="C:\NWACCESS\DATA\Sent
Updates\Warning.xls"
Workbook.Close
Application.DisplayAlerts = True

The changes I made were to change the target workbook to wb3, which was
declared at the beginning and has been used all throughout this routine -
and that isn't the problem. Somehow, I can't call back the first workbook
("Warning.xls") to close it. It's hung up saying "Invalid Object". I did
have Workbooks.Close Filename:=etc, but it didn't go, so I tried what's in
there now. It doesn't work either.

Any help?

Ed

Ed,

Try:
Workbooks("Warning.xls").Activate
ActiveWorkbook.Close

Or better still:
Workbooks("Warning.xls").Close
(there's no need to activate a workbook before closing it)

HTH
Henry


"Ed" wrote in message
...
I walked this through the recorder yesterday using two documents and it
worked fine. I put it into a major macro routine and made some minor
changes - and now it hangs! But it hangs where yesterday it worked fine!

Workbooks.Open Filename:="C:\NWACCESS\DATA\Sent Updates\Warning.xls"
Cells.Select
Selection.Copy
With wb3.Sheets(3)
Cells.Select
ActiveSheet.Paste
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With
Application.DisplayAlerts = False
Workbook.Activate Filename:="C:\NWACCESS\DATA\Sent
Updates\Warning.xls"
Workbook.Close
Application.DisplayAlerts = True

The changes I made were to change the target workbook to wb3, which
was
declared at the beginning and has been used all throughout this routine -
and that isn't the problem. Somehow, I can't call back the first workbook
("Warning.xls") to close it. It's hung up saying "Invalid Object". I did
have Workbooks.Close Filename:=etc, but it didn't go, so I tried what's in
there now. It doesn't work either.

Any help?

Ed