With ActiveWorkbook<BR>
    .WebOptions.AllowPNG = False<BR>
        With .PublishObjects(2)<BR>
            Range("A1").Activate<BR>
            .Filename = "D:Reports9192014MNM.html"<BR>
            .Publish (True)<BR>
        End With<BR>
End With

With ActiveWorkbook<BR>
    .WebOptions.AllowPNG = False<BR>
        With .PublishObjects(3)<BR>
            Range("A1").Activate<BR>
            .Filename = "D:Reports9192014Coal.html"<BR>
            .Publish (True)<BR>
        End With<BR>
 End With