FIND PATH OF XLAM EXCEL ADD-IN

Function XLAM_Find_Dir() As String

    Dim XLAM_Curr As String
    Dim oAddIn As AddIn

    XLAM_Curr = ""

    For Each oAddIn In AddIns
        If UCase(oAddIn.Name) = "MANMAN89.XLAM" And oAddIn.Installed Then
            XLAM_Curr = IIf(Right(oAddIn.Path, 1) = "\", oAddIn.Path & oAddIn.Name, oAddIn.Path & "\" & oAddIn.Name)
        End If
    Next oAddIn

    XLAM_Find_Dir = XLAM_Curr

End Function