Ahh. I see why you were hesitant.

I skinnied down your code to just the apply_format section and that portion
worked ok for me (xl2002/win98).

But this section looked plenty weird to me:

Sheets("Inquiry Form ").Activate
'
ActiveWindow.SelectedSheets.Delete
Sheets("NewInquiryForm").Activate
'
Sheets("NewInquiryForm").Name = "Inquiry Form"

You delete "inquiry From " (with a trailing space) and rename the
"newinquiryform" to "inquiry form" without the trailing space.

With the "on error resume next" still active, maybe that caused the error.

With all the workbooks and folders that it uses, I don't think I'd want to
recreate the environment to make testing worthwhile.

But if I were debugging this, I'd turn off all "on error resume next" lines
(looks like you got both). And I'd turn off all the "application.displayalerts
= false" lines. I'd step through the code with F8's (answering the alert
warnings nicely).

It might help find it.

Sorry about not being any real help.

Good luck,





EC wrote:

--

Dave Peterson