Public Sub ShowNames() With Application.VBE.SelectedVBComponent Debug.Print .Name & ": " & .Properties("Name") End With End Sub