Hi-

Someone on this board was kind enough to write the macro (user defined function) below for me. Its purpose is to search for file names in a desktop folder and return a true or false depending on whether or not a match is found in the folder.

It works on a PC, but when I run it on my Mac, I get the following error: #VALUE!. Is there some element that has to be defined differently for Mac? Does anyone know how I can get this UDF to work on my Mac? Thank you!

-------------
Function FileInDeskFldr(fName As String) As Boolean

Const Desktop = &H10&

Dim strDsk As String
Dim strFldrPath As String

' Find path to the Folder on the Desktop
Set objShell = CreateObject("Shell.Application")
Set objFolderDsk = objShell.Namespace(Desktop)
strDsk = objFolderDsk.Self.Path
strFldrPath = strDsk & "\Test"

' Verify existence of named file in the Desktop Folder
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFldrPath & "\" & fName) Then
FileInDeskFldr = True
Else
FileInDeskFldr = False
End If

Set objFolderDsk = Nothing
Set objShell = Nothing
Set objFSO = Nothing

End Function