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
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.