I have a list of workbooks in a worksheet that I'd like to open
automatically. How would I do that using VB?

Thanks,
Barb Reinhardt

Dim bk() as Workbook
redim bk(0 to selection.count - 1)
i = 0
for each cell in selection
set bk(i) = Workbooks.Open(cell.Value)
Next


This assumes the cells contain the fully qualified path as well if it is
required to find the workbook.

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote in message
...
I have a list of workbooks in a worksheet that I'd like to open
automatically. How would I do that using VB?

Thanks,
Barb Reinhardt

What if I define the name DEFECT for the series, what would need to be
changed?

"Tom Ogilvy" wrote in message
...
Dim bk() as Workbook
redim bk(0 to selection.count - 1)
i = 0
for each cell in selection
set bk(i) = Workbooks.Open(cell.Value)
Next


This assumes the cells contain the fully qualified path as well if it is
required to find the workbook.

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote in message
...
I have a list of workbooks in a worksheet that I'd like to open
automatically. How would I do that using VB?

Thanks,
Barb Reinhardt

Dim rng as Range
Dim bk() as Workbook
set rng = Range("Defect")
redim bk(0 to rng.count - 1)
i = 0
for each cell in rng
set bk(i) = Workbooks.Open(cell.Value)

Next



at some point
for i = lbound(bk) to ubound(bk)
bk(i).close SaveChanges:=False
Next


--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote in message
...
What if I define the name DEFECT for the series, what would need to be
changed?

"Tom Ogilvy" wrote in message
...
Dim bk() as Workbook
redim bk(0 to selection.count - 1)
i = 0
for each cell in selection
set bk(i) = Workbooks.Open(cell.Value)
Next


This assumes the cells contain the fully qualified path as well if it is
required to find the workbook.

--
Regards,
Tom Ogilvy


"Barb Reinhardt" wrote in message
...
I have a list of workbooks in a worksheet that I'd like to open
automatically. How would I do that using VB?

Thanks,
Barb Reinhardt