Solved: XLAM file replacement

[mikke3141]

Hello,

I found some code that will solve the problem.

    
AddIns("Makros").Installed = False
AddIns.Add Filename:=ThisWorkbook.Path & "\Custom Functions.xla"
AddIns("Makros").Installed = True

Thank you for the help