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
   Sheets("CALENDAR").Select
'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
Application.Quit
End Sub