Excel VisualBasic Script

Sub webPage()
ActiveWorkbook.SaveAs _
     Filename:=ActiveWorkbook.Path & "\myXclfile.htm", _
     FileFormat:=xlHtml
End Sub