Smart Application.Path
 

Hi there

The below code works fone
but i need to put the Addin in the same Directory
of Office11 i.e. Excel Directory, otherwise the addin cannot be loaded

What i need is a code to get my addin from any location in my PC an
then load it................propably search function help, but dono
know how to use it here........


Code
-------------------

Sub InstAddin()
Dim p As String
p = Application.Path & "\EasyFilter.XLA"
AddIns.Add Filename:=p

'*Check if Addin is Installed or not:
With Application.AddIns("EasyFilter.XLA")
If .Installed = False Then _
.Installed = True
End With

End Su
-------------------

--
helmekk

-----------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693
View this thread: http://www.excelforum.com/showthread.php?threadid=47579