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
Ask a Question
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.