Try:

Sub Test1()
Dim wb As Workbook
For Each wb In Workbooks
MsgBox wb.Name
Next wb
End Sub

Workbooks is a collection of the open workbooks.