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
ChDir _
"C:\Test"
End Sub

I would like to save this web page with value of the active cell in sheet2
which is B1

Thanks in advance

Dave