I used code

Sub AddHTMLCharts()
Dim chtobj As ChartObject
Dim strChartName As String
Dim vaDate As Variant
vaDate = Format(Date - 1, "yyyy-mm-dd")
Application.DisplayAlerts = False
Worksheets("Charts").Activate
For Each chtobj In ActiveSheet.ChartObjects
strChartName = chtobj.Name
ActiveSheet.ChartObjects(strChartName).Activate
ActiveWorkbook.PublishObjects.Add(xlSourceChart, _
"c:\" _
& vaDate & "ABC" & strChartName & ".htm", _
"Charts", strChartName, xlHtmlStatic, strChartName, "").Publish
(True)
Next chtobj
Application.DisplayAlerts = True

to publish multiple charts in worksheet Charts in XL2000. Each chart
contains text boxes modified daily. When I upgraded to XL2003, the