I have created a button to save my spreadsheet as a webpage here is the code when I hit the button:

ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\WINDOWS\Personal\Emailed Proposals\Page.htm", "FRONT", "", xlHtmlStatic, _
"Proposal for XL_16777", "").Publish (True)
ChDir "C:\WINDOWS\Personal\Emailed Proposals"
Range("K1").Select

It works great!! The only problem is it saves as the same name everytime Page.htm. In my Proposal in cell (n2) it has the Proposal number. I would like to name it using this number. Is there a way to do this?? If so, what do I need to add to my code?

Something like "Proposal" & Cell(N2)

Any help would be greatly appreciated!
Michael

Create a variable with your desired name and Save path use this in the PublishObjects Statement.

Dim strPath as string
Dim strPName as String

' "Proposal" & Cell(N2)
strPath = "C:\WINDOWS\Personal\Emailed Proposals\"
strPName = strPath & "Proposal" & ActiveSheet.Cells(2, 14)

ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
strPName, "FRONT", "", xlHtmlStatic, _
"Proposal for XL_16777", "").Publish (True)
ChDir "C:\WINDOWS\Personal\Emailed Proposals"
Range("K1").Select