Hallo, Möchte mit VBA aus Buchstabensalat gültige Wörter auslesn.Im Netz gefunden:

Public Sub Check_Spelling_Mistake()
Sheets("Tabelle6").Activate
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Application.CheckSpelling(Word:=Zelle.txt) Then
Zelle.Interior.Color = vbRed
End If
 Next Zelle
End Sub

In Tabelle 6 in Spalt 1 und Spalte 3 jeweils 900 ggebastelte Worte. Die Funktion zeigt keine Wirkung. Kann mir jemand helfen? Betriebsystem Windows 10 und Office12