Åbne og gemme en workbook i VBA

Hej Eksperten

Hvordan åbner og gemmer jeg et workbook minimeret, således at brugeren ikke bemærker at en side hentes ind.

Sub GetHTML()
'
' Export til HTML siden
'

    ChDir "S:\sti"
    Workbooks.Open Filename:="S:\sti\X.htm"

    Workbooks("Y").Activate
   
    Workbooks("X.htm").Save

    Workbooks("X.htm").Close
   
End Sub

Lars