Run-time error 1004



I use a macro to save an XLS workbook (created from an XLT template) to HTML
format for our intranet. It works fine once, but the second time it opens the
saved HTML file before running the macro, which causes the error:
Run-time error '1004': You cannot save this workbook with the same name as
another open workbook or add-in....
I am running the macro from a new toolbar.

How do I prevent the macro from opening the HTML file?

Sub PostNEXTMonth()
' MoveToCalendarWorksheet
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
'save to folder
' ActiveWorkbook.Save
' publish worksheet to Intranet
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="\\intranet\OnCallDocs\OnCall-next.htm", _
FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
'close without saving
ActiveWorkbook.Close saveChanges:=False
ThisWorkbook.Saved = True
'close Excel
End Sub


Never mind. I added the macro to a text box in the template file, added code
to delete the box before saving it to HTML, and it works every time now
without any errors.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads