Sub xxx() Dim s As SpellingSuggestion Dim slist As String For Each s In Selection.Range.GetSpellingSuggestions slist = slist & s.Name & vbCr Next MsgBox slist End Sub