April 2006
Beginner
1114 pages
98h 16m
English
AutoCorrect.ReplacementList
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 SubRead now
Unlock full access