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