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