Сохранение листа Excel в Html

[fishh]

Код: Выделить всё

Private Sub CommandButton6_Click()
Dim shits As String
Dim ab As Byte
For ab = 3 To 6
    shits = ab & " курс"
    Sheets(shits).Activate
    ActiveWorkbook.PublishObjects.Add( _
        SourceType:=xlSourceSheet, _
        Filename:="D:\rasp\" & ab & "_kz.htm", _
        Sheet:=shits, _
        HtmlType:=xlHtmlStatic).Publish True
Next ab
End Sub

Нужно сохранить лист в html формат. Использую данный код. Возникает ошибка 1004 Method 'Publish' of object 'PublishObject' failed.
Если записать макрос и использовать его через кнопку на форме, тоже возникает данная ошибка.
Помогите, пожалуйста.

[fishh]

Еще этот же код в другой книге работает нормально. Не знаю в чем может быть проблема. + Использую почти такой же код для другого листа, он тоже сохраняется. Вот