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