#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(not tested)