Hi, is there a way to cycle through all possible open workbooks? In order
to get the name of each and store this in an array? Many thanks.

dim arNames() as String
Dim i as Long, bk as Workbook

Redim arNames(1 to workbooks.count)

i = 1
for each bk in Application.workbooks
arNames(i) = bk.Name
i = i + 1
Next



--
Regards,
Tom Ogilvy

"Graham Whitehead" wrote:

Hi, is there a way to cycle through all possible open workbooks? In order
to get the name of each and store this in an array? Many thanks.

Thanks Tom

"Tom Ogilvy" wrote in message
...
dim arNames() as String
Dim i as Long, bk as Workbook

Redim arNames(1 to workbooks.count)

i = 1
for each bk in Application.workbooks
arNames(i) = bk.Name
i = i + 1
Next



--
Regards,
Tom Ogilvy

"Graham Whitehead" wrote:

Hi, is there a way to cycle through all possible open workbooks? In
order
to get the name of each and store this in an array? Many thanks.