Function FindFile(FileName) As Boolean
Dim Fo As Boolean
FindFile = False
For i = Workbooks.Count To 1 Step -1
If UCase(Workbooks(i).Name) = UCase(FileName) Then
FindFile = True
Exit Function
End If
Next i
End Function
Dim Fo As Boolean
FindFile = False
For i = Workbooks.Count To 1 Step -1
If UCase(Workbooks(i).Name) = UCase(FileName) Then
FindFile = True
Exit Function
End If
Next i
End Function
FileName
Views 6,143
Downloads 1,588
CodeID
DB ID