Sub addinpath()
Dim i As Integer
Dim strpath As String
For i = 1 To AddIns.Count
strpath = strpath + AddIns(i).Name & " is at " & AddIns(i).Path & vbCrLf
Next i
MsgBox strpath
End Sub
(to use in case you don't know)
alt f11 to open vb editor
Insert module
paste in the code and f5