#define xlSourceSheet	 1
#define xlSourceWorkbook 0
#define xlHtmlStatic     0

With .ActiveWorkbook.PublishObjects.Add(xlSourceWorkbook, "C:\Page.htm", , , xlHtmlCalc,;
                                        "Book1_25990", "Title of the web page")
     .Publish(.t.)
     .AutoRepublish = .f.
EndWith


** Publish only one sheet:

With .ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\Book12.htm", "Name of the Sheet you want to publish",;_
                                        "", xlHtmlStatic, "Book1_12385", "Title")
     .Publish (.t.)
     .AutoRepublish = .f.
EndWith