Modify this line from: Workbooks(Wkb.Name & ".xls") .Open
to: Workbooks.Open (Wkb.Name & ".xls")

"XmansMom" wrote:

No there are no formulas just text in the 3 columns that I need to pull out
of the workbook. But the location of the columns varies depending on the file.

Thanks!
--
DHC


"JLGWhiz" wrote:

Is it safe to assume that there are no formulas in the columns or that the
data is not linked to other locations by relative reference? It either case
exists, then the data will be corrupt when transferred to the new workbook.

"XmansMom" wrote:

Hello: I am trying to write a small script to search through directory
containing a bunch of xls files. It must look at each workbook and if the
column titles "UL 94 Rating" ,"Needle Flame" and "Oxygen Index" are found
then I need to open a new workbook and move these columns to the new
workbook. So essentially I am removing them from the current workbook and
placing them into a new one to preserve the data for future use. If they are
not found in the workbook then I need to close the book and move on to the
next file in the directory. I know how to work on a bunch of files in a
directory but I dont know how to find the specific columns and move them to a
brand new workbook. Any help that you can give is appreciated!