ObjectToPaste = xlApp.Range(UserformObj.listCharts.SelectedItem).Address
            Title = UserformObj.listCharts.SelectedItem.SubItems(4)
            Caption = IIf(KUKUKU3 = 1, Title, "")
            On Error Resume Next
            With oWB.PublishObjects.Add(xlSourceRange, Where, sht, _
                                        ObjectToPaste, xlHtmlStatic, "", Caption)
                .Publish (False)
                .AutoRepublish = UpdateHTml
            End With
            On Error GoTo 0

With ActiveWorkbook.PublishObjects.Add(SourceType:=xlSourceRange, _
 Filename:="\Serverstockreport.htm", Sheet:="First Quarter", Source:="$G$3:$H$6", _
 HtmlType:=xlHtmlStatic, DivID:="Book1_4170")
 .Publish (True)
 .AutoRepublish = False
End With