In diesem Beispiel wird die Ersetzungsliste nach "Temperature" durchsucht und der Ersatzeintrag angezeigt, falls dieser vorhanden ist.
repl = Application.AutoCorrect.ReplacementList For x = 1 To UBound(repl) If repl(x, 1) = "Temperature" Then MsgBox repl(x, 2) Next