Apologies for not telling you of the automatic over-write in the beginning.


Gord

On Fri, 23 May 2008 08:38:21 +0100, "tim" wrote:

thanks. it does ask now if file exist.

"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
Delete the Application.DisplayAlerts lines.


Gord

On Fri, 23 May 2008 00:53:37 +0100, "tim"
wrote:

Thanks gord
There was only one drawback. It does not ask to replace if the file name
already exist.

regards

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Sub Make_New_Book()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Invoice").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path _
& "\" & Range("C5").Value
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

No error-checking for blank or illegal characters in C5


Gord Dibben MS Excel MVP

On Thu, 22 May 2008 15:14:57 +0100, "tim"
wrote:

Hi
I would like to make a button that would save only active sheet and get
name from cell "C5".
i.e. save active sheet "Invoice" only and name from cell "C5" which
invoice
number "55"
Result, File saved 55.xls with only one sheet "invoice".

any suggestion please.

regards