Hi Sub SaveTempletAsWebpage() Range("A5:Q70").Select With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "
C:\Test\Page.htm" _ , "sheet1", "$A$5:$Q$70", xlHtmlStatic, "Book1_16704", "" _ ) .Publish (True) .AutoRepublish = False End With ...