Gem aktivt ark som html

Jeg glemte at skrive at det skal være ved hjælp af en makro.

Prøv med

    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Mappe2.htm", FileFormat:= _
        xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

Ret selv sti og filnavn.

Det virker næsten.
To skønhedsfejl.
1) Den skal hente ugenummer fra faneblad med denne formel:
=MIDT(CELLE("Filnavn";A1);FIND("]";CELLE("filnavn";A1))+1;999)
I html dokumentet står der: #værdi!

2)Ugenavnene står vertikalt, men i html dokumentet står det horisontalt.

Er det noget der kan gøres noget ved?

Fik ikke løst det med retning på tekst. Men ellers fungerer det.
Hvad med at give et svar, så du kan få point.