Sub SaveChartWeb() ActiveWorkbook.PublishObjects.Add _ SourceType:=xlSourceChart, _ Filename:=ActiveWorkbook.Path & "\Sample2.htm", _ Sheet:=ActiveSheet.name, _ Source:=" Chart 1", _ HtmlType:=xlHtmlChart ActiveWorkbook.PublishObjects(1).Publish (True) End Sub