Try something like the following:

Dim FName As Variant
FName = Application.GetSaveAsFilename( _
filefilter:="Excel files (*.xls),*.xls")
If FName = False Then
' user clicked cancel
Else
ThisWorkbook.SaveAs Filename:=FName
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"a_d66" wrote in message
...

hi,
how do i write a macro save the file. i mean - the macro will get to
"file" then "save as" then the user (not the macro) has to enter the
name he wants to save, and then - after klicking on the ok bottom the
macro will go on.
thanks


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/