Macro for Saving tabs in Excel

The following will save each tab in the workbook as a HTML file:

Sub SaveTabsTohtml()
Dim ws As Worksheet

ChDir "C:\test\" ' change as required to where you want to save the files

    For Each ws In Worksheets
        ws.Activate
        ActiveWorkbook.SaveAs Filename:=ws.Name & ".html", _
            FileFormat:=xlHtml, CreateBackup:=False
    Next ws

End Sub

Is this is what you are after?