Save Worksheet As HTML Page

[Excel]

Hi there

I recorded a macro to do a simple html export that is assigned to a button.
This works fine.

The VBA code is

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/02/2006 by rulebr
'

'
With ActiveWorkbook.PublishObjects("Brady Standard Quote 7.2.06_23158")
.HtmlType = xlHtmlStatic
.Publish (False)
End With
End Sub



Id like to add a few more in the file name it saves it to.Through vba code
is there
a way to make the file that is save with the following file name format.

QuoteNo_1000_cell(D10)_todaysdate.htm

So an example would be

QuoteNo_1001_Company Name_09022006.xls

1001 The number would increment by 1 every time the macro is run.
And company Name is from cell D10 in the worksheet.

I imagine I would have to store the quoteno somewhere in a worksheet of its
own???

any help appreciated

[David McRitchie]

Just noticed you posted twice so I will dump what I was working on into that
thread after Nick Hodge's reply, your other thread is at
http://groups.google.com/groups?thre...TNGP10.phx.gbl.