Recherche collection pour une boucle For each

Bonjour,
je souhaite activer l'un aprés l'autre tous les classeurs ouverts dans Excel
mais je ne connais pas le nom des collections à saisir dans la macro ( en gras)
voici ce que j'avais imaginé

Sub test()
Dim W As Workbooks
For Each W In Windows
W.Activate
MsgBox (W.Name)
Next

End Sub

Merci d'avance