Any other ideas?

the calculation on oexcel =good.But I still not publishing - is this even possible?

I have looked for information through 8 books over the weekend, unable to locate helpful hints on implementing code for the xldialogpublishaswebpage val 653 usage.

The code that you provided seems very close to the solution...

      FOR ifw= 1 to nWSF 
         With oExcel
            .DisplayAlerts= .F.
            IF wanted
               .WorkBooks.Open(laFileListWS [ifw,1],1)
               .Visible= .F.
               FOR itabor = 1 to .ActiveWorkBook.WorkSheets.Count && creating list xl
                  iDime= iDime+.ActiveWorkBook.WorkSheets.Count
                  DIMENSION aTheDMDxls(iDime)
                  iArrayElement= iArrayElement+ 1
                  aTheDMDxls(iArrayElement)= laFileListWS [ifw,1]+"\"+ALLTRIM(.ActiveWorkBook.ActiveSheet.Name)
                  StandardLbl= "StandardLabel"+ALLTRIM(STR(iArrayElement))
                  IF iArrayElement < 55 && Limit to 54 worksheet selections
                     _screen.ActiveForm.&StandardLbl..Caption= IIF(iArrayElement<10, ;
                                                               " "+ALLTRIM(STR(iArrayElement))+ " ", ;
                                                               PADR(ALLTRIM(STR(iArrayElement)),3))+ ;
                                                               aTheDMDxls(iArrayElement)
                     _screen.ActiveForm.&StandardLbl..Visible= .T.
                  ENDIF 
                  _screen.ActiveForm.Refresh
                  .ActiveWorkBook.WorkSheets(m.iTabor).Activate
                  .range("A3").select()
                  .ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\Some1.htm", .ActiveWorkBook.ActiveSheet.Name, ;
                                                     "", xlHtmlStatic, "Book1_12385", _screen.ActiveForm.&StandardLbl..Caption)
                  .Publish (.t.)
                  .AutoRepublish = .f.
               ENDFOR 
            ENDIF 
         EndWith 
      ENDFOR
   _screen.ActiveForm.Caption= "Excel Chart List"
   READ events
   oExcel.Quit
   Release oExcel

OLE Error code 0x80020006: Unknown name. at Publish(.t.)


>** 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
>