ExcelBanter - Save as .htm with filename from cell

Change the following line

"C:\Documents and Settings\HP_Administrator\Desktop\Copy of
cooter\calhDATE.htm", "web (2)", "", xlHtmlStatic, "horses_17286", "")

"C:\Documents and Settings\HP_Administrator\Desktop\Copy of cooter\" &
range("N131").value, "web (2)", "", xlHtmlStatic, "horses_17286", "")

--
http://HelpExcel.com
1-888-INGENIO
1-888-464-3646
x0197758

" wrote:

What about publishing just one sheet as an htm file. My macro looks
like this now. I used Record Macro to get it. I don't know what all
those words mean in the macro. But I would like to be able to use the
contents of cell N131 as the filename. Thanks.

Option Private Module
Sub ExportFinal()
'
' ExportFinal Macro
' Macro recorded 4/29/2005 by
'
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Documents and Settings\HP_Administrator\Desktop\Copy of cooter\calhDATE.htm" _
, "web (2)", "", xlHtmlStatic, "horses_17286", "")
.Publish (True)
.AutoRepublish = False
End With

Sheets("web (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("CALENDAR").Select

End Sub

On Thu, 12 May 2005 19:45:06 -0700, galimi
wrote:

As long as the values in the cell do not contain forbidden characters, you
could simply reference the cell when saving the file using
range("cell_containing_name").value
--
http://HelpExcel.com
1-888-INGENIO
1-888-464-3646
x0197758

" wrote:

I have a macro to save a sheet as an htm file. I can specify a name
for the file. Is there a way to use the contents of a cell for the
file name? Thanks for any and all help.