Save this web page with value of the active cell in sheet2

[DaveM]

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

 

[DaveM]

oops

Name the web page the as the value of the cell.

Thanks in advance

Dave

 

[Tim Williams]

Untested:

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Test\" & Sheet2.Range("B1").Value, _
"sheet1", "$A$5:$Q$70", xlHtmlStatic, "Book1_16704", "")

I'm using the sheet2 codename - if you want to use the tab name it would be
Activeworkbook.sheets("Sheet2").Range("B1").value

Tim

 

[DaveM]

Thanks Tim

Works a treat

All the best

Dave

Untested:

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Test\" & Sheet2.Range("B1").Value, _
"sheet1", "$A$5:$Q$70", xlHtmlStatic, "Book1_16704", "")

I'm using the sheet2 codename - if you want to use the tab name it would
be
Activeworkbook.sheets("Sheet2").Range("B1").value

Tim