Application VisualBasic Script

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