ReplacementList Method Example

This example searches the replacement list for "Temperature" and displays the replacement entry if it exists.

repl = Application.AutoCorrect.ReplacementList
For x = 1 To UBound(repl)
        If repl(x, 1) = "Temperature" Then MsgBox repl(x, 2)
Next