Thanks Sergey,

I have found that what is needed is more along the line of
xlDialogPublishAsWebpage 653 (object type xlBuiltInDialog)
Can you provide an example as to how to use it?
it's not this... .ActiveWorkBook.SaveAs("C:\DMD5.htm", xlDialogPublishAsWebpage)


>The SaveAs() is a method of a WorkBook

#DEFINE xlHtml 44
>     .ActiveWorkBook.SaveAs("C:\Absorb\WebPages\DMD.htm", xlHtml)

I would also recomend to use Excel constants instead of their values because it makes code readable.
>
>>
>>OLE error code 0x80020006: Unknown name.
>>

>>      nWSF = ADIR(laFileListWS, cSpreadsheet+"\*.xls")
>>      FOR ifw= 1 to nWSF
>>         oExcel=CREATEOBJECT("Excel.Application")
>>         With oExcel
>>            .DisplayAlerts= .F.
>>            IF SUBSTR(UPPER(laFileListWS [ifw,1]),1,3)="DMD"
>>               .WorkBooks.Open(cSpreadsheet+"\"+laFileListWS [ifw,1],1)
>>               FOR itabor = 1 to .ActiveWorkBook.WorkSheets.Count
>>                  .ActiveWorkBook.WorkSheets(m.iTabor).Activate
>>               ENDFOR
>>               .Visible=.T.
>>? "C:\Absorb\WebPages\DMD.htm"
>>               .SaveAs("C:\Absorb\WebPages\DMD.htm", 44)
>>               .Quit
>>            ENDIF
>>         EndWith
>>         Release oExcel
>>      ENDFOR
>>
>>

>>Now, even Save causes an error?????????