Sub DoesWorkBookExist()
'''''''''''''''''''''''''''''''
'Written by http://www.Ozgrid.com
'Test to see if a Workbook exists
''''''''''''''''''''''''''''''''
Dim i As Integer
With Application.FileSearch
.LookIn = "C:MyDocuments"
'* represents wildcard characters
.FileName = "Book*.xls"
If .Execute > 0 Then 'No Workbook
MsgBox "There is no Workbook."
Else 'There is a Workbook
MsgBox "The Workbook does not exist"
End If
End With
End Sub