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.