UDF & Add-in Issue

[MSweetG222]

All -

I have a UDF that works fine in a regular Excel workbook module. However,
when I convert the excel workbook into an add-in the function no longer
works. I copied it back to a regular Excel module and it works fine. What
am I doing wrong with the conversion of the function to the Add-in?

Here is the function:

Function DoesFileExist (PathFileName as String) as Boolean

On Error GoTo FileDoesNOTExist

If Len(PathFileName) then
If (GetAttr(PathFileName) and vbDirectory) < 1 then
DoesFileExist = True
End if
End if

Exit Function

FileDoesNOTExist:
DoesFileExist = False

End Function

My other UDF work just fine in the Add-in.
Thanks for any help you can give me.

MSweetG222

[Patrick Molloy]

Option Explicit
Sub test()
MsgBox FileExists("C:\Rubbish.xls")
End Sub


Function FileExists(sFileName As String) As Boolean

FileExists = Not ( Dir( sFileName ) = "" )

End Function

"MSweetG222" wrote:

> All -
>
> I have a UDF that works fine in a regular Excel workbook module. However,
> when I convert the excel workbook into an add-in the function no longer
> works. I copied it back to a regular Excel module and it works fine. What
> am I doing wrong with the conversion of the function to the Add-in?
>
> Here is the function:
>
> Function DoesFileExist (PathFileName as String) as Boolean
>
> On Error GoTo FileDoesNOTExist
>
> If Len(PathFileName) then
> If (GetAttr(PathFileName) and vbDirectory) < 1 then
> DoesFileExist = True
> End if
> End if
>
> Exit Function
>
> FileDoesNOTExist:
> DoesFileExist = False
>
> End Function
>
> My other UDF work just fine in the Add-in.
> Thanks for any help you can give me.
>
> MSweetG222
>

[MSweetG222]

Thank you for your assistance!!

--
Thx
MSweetG222



"Patrick Molloy" wrote:

> Option Explicit
> Sub test()
> MsgBox FileExists("C:\Rubbish.xls")
> End Sub
>
>
> Function FileExists(sFileName As String) As Boolean
>
> FileExists = Not ( Dir( sFileName ) = "" )
>
> End Function
>
> "MSweetG222" wrote:
>
> > All -
> >
> > I have a UDF that works fine in a regular Excel workbook module. However,
> > when I convert the excel workbook into an add-in the function no longer
> > works. I copied it back to a regular Excel module and it works fine. What
> > am I doing wrong with the conversion of the function to the Add-in?
> >
> > Here is the function:
> >
> > Function DoesFileExist (PathFileName as String) as Boolean
> >
> > On Error GoTo FileDoesNOTExist
> >
> > If Len(PathFileName) then
> > If (GetAttr(PathFileName) and vbDirectory) < 1 then
> > DoesFileExist = True
> > End if
> > End if
> >
> > Exit Function
> >
> > FileDoesNOTExist:
> > DoesFileExist = False
> >
> > End Function
> >
> > My other UDF work just fine in the Add-in.
> > Thanks for any help you can give me.
> >
> > MSweetG222
> >