Public Function FileExtant(ByVal FileName As String) As Boolean

'       This function will check to see if a passed filename exists or not

If Dir(FileName) = "" Then
    FileExtant = False
Else
    FileExtant = True
End If
End Function