Looping through open workbooks

[JustPlainD]

Hello,
I am trying to use loop for the first time. I need to loop through open workbooks, and close each workbook after I have copied the data from it. I am trying the following the below to indicate the next workbook, but it always treats the value as true even if there is only the workbook with the macros open.

If ActiveWindow.ActivateNext = False Then
GoTo DDC
ElseIf ActiveWindow.ActivateNext = True Then
GoTo DDC
End If

DC:
code here

DDC:
code to finalize.

I also tried

Do until ActiveWindow.ActivateNext = False

code

Loop

No luck there either.

Any help would be greatly appreciated.

JustPlainD

 

[Fluff]

Hi & welcome to the board
How about

For Each Wb In Workbooks
    MsgBox Wb.Name
Next Wb

 

[JustPlainD]

Thank you. I tried the code you recommended, and I see what it is doing, but I am not sure how to use it for looping at this stage of my excel developement.

 

[Fluff]

It is a loop.
as a better example

For Each Wb In Workbooks
    If Not Wb.Name = ThisWorkbook.Name Then
        ' code to
        ' do the
        ' copying
        ' goes here
        Wb.Close
    End If
Next Wb

 

[JustPlainD]

Thank you Fluff. I have it working now.

 

[Fluff]

Glad to help & thanks for the feedback