Workbook reference

[a.hudrea]

Hello, this is my situation. I have two workbooks "A" and "D". I have to copy from A to D a certain ammount of info. Now A is always the same file so i can use the workbook's name to refere to, but D is always changing. Any ideea how i can refere to it, tried to do it by index but couldnt figured it out. Only need help with how to refere to the second changeable workbook the rest works.

[:) Sixthsense :)]

Just keep two workbooks open and make use of

Windows(2).Activate

[a.hudrea]

Thank you so much for the quick and awesome response. I would have one more favour to ask. This work perfectly is there are my first 2 opened workbooks or the onlyones. But if I already have a bunch of workbooks opened how would you sugest that i refer to a dynamic workbook that never has the same name. Thanks in advance.

[:) Sixthsense :)]

We need something as identifier to identify the relevant workbook. Whether any in string of the workbook name which can help us to locate the workbook?

[a.hudrea]

Yes they have "Calculation" in common but the code after that is different for each workbook. Calculation 824156, Calculation 824157, and os on.

[:) Sixthsense :)]

Whether multiple workbooks will be kept open with the name Calculation #####

or

Just a single file with the name Calculation ##### will be in Open and the rest of the files with different names without having the word Calculation in the file naming?

[a.hudrea]

yes only one with Calculation #####.

[:) Sixthsense :)]

Try the below code...

Sub LocateWorkbook()
Dim W As Window

For Each W In Application.Windows
    If InStr(UCase(W.Parent.Name), "CALCULATION") Then
        Windows(W.Parent.Name).Activate
        Exit For
    End If
Next W

End Sub

[a.hudrea]

again many thanks and have a lovely day.