Wouldn't the easiest method be to simply have a sheet within th
workbook with the filenames (and paths)?

That way you could do a loop;


Sub Auto_Open()

Dim xfilename as String
Dim i as integer

Do Until xfilename = ""

i=i+1
xfilename = Workbooks("Workbook with names on it").Range("A" & i)

Workbooks.Open xfilename, UpdateLinks:=0

Chart_format_2Years
ChartFormating
DefineScale

ActiveWorkbook.Save
ActiveWorkbook.Close

Loop

End Su

--
dspence
-----------------------------------------------------------------------
dspencer's Profile: http://www.excelforum.com/member.php...fo&userid=3096
View this thread: http://www.excelforum.com/showthread.php?threadid=50633