Macro for Saving tabs in Excel

I have a handful of Excel tabs in a large workbook, which I want to save as a web page using a macro.

I am trying to do something along the lines of:

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Documents and Settings\Administrator\Desktop\M3.htm", "M3", "", _
xlHtmlStatic, "Summary Display_381", "")
.Publish (True)
.AutoRepublish = False
End With

but how can do the above for half a dozen tabs?