Save multiple sheets as web page

Hi,

I recorded a macro to save a sheet and this is my code:

Sub Generate_Report_Click()


Sheets("Conversion rates").Unprotect Password:="Secret"


    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "O:\Roberts Figures\Conversion Reports\" & Range("AH7").Value & ".mht", "Conversion rates", _
        "$A$1:$AC$33", xlHtmlStatic, "Coventry_15959", "")
        .Publish (True)
        .AutoRepublish = False
    End With

    Sheets("Conversion rates").Protect Password:="Secret"
   
    End Sub

Is it possible to save more than one sheet at a time but not the whole workbook?

Thanks

Hi,

I'm still looking for a solution, is it possible to save multiple sheets as web pages?

Thanks