Hello EAB1977,

You were close. To get all the Workbooks the user has open and stor
them in an array...


Dim strWorkbookName()

ReDim strWorkbooName(Workbooks.Count)

For I = 1 To Workbooks.Count
strWorkbookName(I) = Workbooks(I).Name
Next I

Use ActiveWorkbook.Name to return the current Workbook that the use
is in.

Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=47961