expression.CLSID
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example returns the CLSID of an add-in titled "Analysis ToolPak". This example assumes the "Analysis ToolPak" has been installed.
Sub FindCLSID()
MsgBox Application.AddIns("Analysis ToolPak").CLSID
End Sub