Problem with ActiveWorkbook.PublishObjects.Add - html file being generated without code

Hi,

I have been using this forum for a lot of my issues and the solutions suggested here have almost always solved my problems. But there is this one issue I am facing and can't seem to find the answer here. So here goes:

I am using the following code to covert a variable range to an html.

ActiveSheet.PageSetup.PrintArea = "A2:M" & Application.WorksheetFunction.Max((Count + 13), (CountWhole + 13))

With ActiveWorkbook.PublishObjects.Add(xlSourcePrintArea, _
        ThisWorkbook.Path & "\OSCSnapShotReport.htm" _
        , "Net Summary", "", xlHtmlStatic, _
        "OSCVisualSched V1_3 with pivot formulas_3721", "")
        .Publish (True)
        .AutoRepublish = True
    End With

This code works fine and it gives me the right range of values I want. I then figured that I don't have to convert to an html so I deleted this piece of code. Now, the problem I am facing is that even after deleting this piece of code, an html file is being generated at the location above. I don't want the html. I am sure there is a small fix to this somewhere but I am clueless as to why this is happening even after deleting the code.

Any pointers?