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




Ive recorded the following macro to save my worksheet as a html page.
Ive created a button and that works fine.

Is there a way I can get tricky with the name of the file it creates.

Basically I would like the file name to contain a number that increments
every time the macro is pressed.
Id also like it to contain the date, and the company name which is from cell
in the spreadsheet.


eg.

QuoteNo_1000_Company Name(Cell D10)_09022006.xls

QuoteNo_1001_Company Name(Cell D10)_09022006.xls

I guess i need to store the incrementing number somewhere in a worksheet of
its own so it knows the number to call.

Any help with the macro appreciated.