Sub show_smarttagrecognizers() Dim strec As SmartTagRecognizer For Each strec In Application.SmartTagRecognizers Debug.Print strec.FullName, strec.Enabled Next End Sub