try

Code:
--------------------

Sub test()
Dim wb As Workbook, wbNames, x
wbNames = Array("One.xls","Two.xls",Three.xls")
For Each wb In WorkBooks
x = Application.Match(wb.Name, wbNames, 0)
If Not IsError(x) Then MsgBox wb.Name
Next
End Sub
--------------------


--
jindon
------------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
View this thread: http://www.excelforum.com/showthread...hreadid=551995