Sub Test()

   Dim i, FindWName

   FindWName = "Book1.xls"
    'Book1.xlsという名前ブックを探します。
    '違うブックを探したい場合は "" の中身をかえてください。

   For i = Workbooks.Count To 1 Step -1
     If Workbooks(i).Name = FindWName Then
      Exit For
     End If
  Next i

   If i <> 0 Then
   'ループが回り切ると0になるため

    MsgBox FindWName & "は存在します"
  Else
    MsgBox FindWName & "は存在しません"
  End If

End Sub