Macro To Save As MHTML Not HTML

I have excel 2003 and I have a macro that sorts data and then saves it as an HMTL page. When I was upgraded to excel 2003, it started saving the sheet as 'mhtml', which is causing me other problems. using:

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:Documents and Settings holg1My DocumentsQCMA events2007 est.htm" _
, "Event", saverange, xlHtmlStatic, "total_points_2007_8160", "")
.Publish (True)
.AutoRepublish = False
End With

with a defined document name (test.htm), it works (saves as html doc). using:

eventname = "jan22"

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
eventname, "Event", _
saverange, xlHtmlStatic, "total_points_24036", "")
.Publish (True)
.AutoRepublish = False
End With

with a variable document name (jan22), it saves as mhtml. How do I make it save as an HTML doc instead of an MHTML doc?