-FName = Application.GetOpenFilename(filefilter:="Excel Files (*.xls)
*.xls", _
MultiSelect:=True)
If IsArray(FName) Then
Application.ScreenUpdating = False
Set globalbook = ThisWorkbook

globalbook.Worksheets("sheet").Columns("A:Y").Clea r


For N = LBound(FName) To UBound(FName)
*globalbook.Worksheets("sheet").Cells(rnum, "A").Value
insertbook.Name*
...-

is a part of a code i used for equal exampl

--
Zur
-----------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...fo&userid=1464
View this thread: http://www.excelforum.com/showthread.php?threadid=26420