Set Variables To All Open Workbooks Where Name End With..

Hi

I have a folder containing a number of worksheets, these worksheets are of 2 types, a customer submitted workbook and, associated with each of these, anything between 2 and 7 locally created workbooks.

I have a macro which opens a customer workbook and all the relevant local workbooks.

My problem is that I need to declare a variable for each of the workbooks in the form

Dim N as Integer, WbN as workbook,Wb1 as workbook


'open workbooks sequentially


if activeworkbook.name Like *ALL.xls then
set wb1 = activeworkbook


else


set WbN = activeworkbook
N=N+1


end if

This code is contained within a Found files loop

Thanks

Robert

Re: Setting Variables For Unknown Number Of Workbooks

Brilliant, Bob. I had come to the conclusion it was better to try and work round the problem but that's neat

Thanks

Robert