To switch to a specific workbook use
Workbooks("MyWorkBook.xls").Activate
To cycle thru all open workbooks use:
WBCount = Workbooks.Count
For i = 1 to WBCount
Workbooks(i).Activate
'Do something to workbook
next
--
Message posted from
http://www.ExcelForum.com