Please correct the code as follows. I will not write the full thing because
the error is only in the beginning few lines.
Dim FileString as string
i=3
Do while cells(i,1) <> ""
Sheets("Final....").select
FileString = Cells(i,1) & "_06.xls"
Workbooks.Open Filename:=FileString
Workbooks(FileString).Sheets(1).Copy Before:=Workbooks("CHEP
......xls").Sheets(1)
Windows(FileString).Close