Try this

Sub Test()
Dim Filename As Variant
Dim Wb As Workbook
Set Wb = ActiveWorkbook

Filename = Array("workbook1.xls", "workbook2.xls", "workbook3.xls", "workbook4.xls")

For N = LBound(Filename) To UBound(Filename)
Wb.SaveCopyAs "C:\Data\" & Filename(N)
Next
End Sub

Add your file names in the array Filename
It save the files in C:\Data\


--
Regards Ron De Bruin
http://www.rondebruin.nl



"Aziz Ahmedabadwala" wrote in message
...
RON / KEVIN,

The solution given by both of you is good but it wouldnt work out in my case
as there are too many files involved and i dont really want to make another
tabs.

is it possible that we give the file names in the macro code itself..... so
that we dont really have to make any new files or new sheets.....

so there are 12-13 diff names which could ideally be given so if we write
all these names somewhere in the code it would be good for me....

Thanks a lot.... I know i didnt explain my self properly last time around.....

Aziz


"Ron de Bruin" wrote:

Why not use GetSaveAsFilename
See alo the VBA help

This example will save a copy of the activeworkbook
You can test fname for your criteria

Sub Test()
Dim fname As Variant
Dim Wb As Workbook
Set Wb = ActiveWorkbook

Again:
fname = Application.GetSaveAsFilename("", _
fileFilter:="Excel Files (*.xls), *.xls")
'On Error Resume Next
If fname = False Then Exit Sub
If Dir(fname) < "" Then GoTo Again
Wb.SaveCopyAs fname
End Sub

--
Regards Ron De Bruin
http://www.rondebruin.nl



"Aziz Ahmedabadwala" wrote in message
...
I have a macro in which I use a input box which enables user to input the
file name and saves the file.

Can i restrict the Input box so that the user can put in only specific names.

Aziz