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, _
"\\edc-netstor1a\data$\System Performance Plots\DailyFiles\" _
& vaDate & "CBP" & 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
text boxes no longer consistently display in the htm file. Suggestions?