860to864: Nochmals: Ärger mit Textformat

Nachdem ich den heutigen Eintrag irrtümlichweise nicht mehr als "Frage noch offen" markiert habe, hier nochmals meine Problemstellung:
Aus einem Import habe ich eine Menge Daten in einer Tabelle. Sämtliche Zellen sind mit Textformat formatiert. Nun hat mir Walburga einen Code geliefert, der die Texte in Zahlen umwandelt:

Sub Zahl_aktivieren()
Dim C As Range
For Each C In ActiveSheet.UsedRange
If Not IsEmpty(C) Then
If IsNumeric(C) Then C = C * 1
End If
Next
End Sub