ник: Andrew
Гдето взял и пользуюсь ею Public Function GetWorkFile(Optional ByVal pathStr$ = "") As String
эта ф-я получает имя файла из пути с файлом
Dim i As Long
If Trim(pathStr) <> "" Then
pathStr = Split(pathStr, "")(UBound(Split(pathStr, "")))
Else
pathStr = "ФайлБезИмени"
End If
GetWorkFile = pathStr
End Function