One way:
Run Macro "Testme" and it will perform a
File, Save_As (to the current directory) creating
a File Name = to Cell J2.

Sub testme()
Application.Dialogs(xlDialogSaveAs).Show _
Worksheets("sheet1").Range("j2").Value & ".xls"
End Sub

HTH
Jim

"yrndtn" wrote in message
ups.com:

I need to creat a macro that save a copy of the file, and take the file
name from a cell at the worksheet. this cell is changing everytime i
need to save the file, therefor i will not have the same file name.