Name

AutoCorrect.ReplacementList

Synopsis

Returns the replacement list. The following code displays the list of items that Excel will automatically replace and the replacements that will be used:

Sub ShowReplacementList(  )
    Dim i As Integer
    With Application.AutoCorrect
        Debug.Print "Replace", "With"
        For i = 1 To UBound(.ReplacementList, 1)
            Debug.Print .ReplacementList(i)(1), _
              .ReplacementList(i)(2)
        Next
    End With
End Sub

Get Programming Excel with VBA and .NET now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.