Makro der exporterer et woorksheet til html

Det vel blot gem som html ...

F.eks således

Sub Html()
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\Test.htm", "Ark1", "" _
        , xlHtmlStatic, "Mappenavn.xls", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\"
End Sub

Det har du ret i - virker perfekt. Smid et svar.

Dejligt når det virker ...

Tak