@ suchen und entfernen

gestern hat mir Hans sehr geholfen (siehe Beitrag 06.06.02, 10:26 Uhr).
Frage: Wie kann ich erreichen, daß nur eine bestimmte Spalte nach diesem Zeichen durchsucht wird und nicht das ganze Tabellenblatt? Z.B Spalte C?

Sub WegMitDemDing()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange.Cells
rng.Value = WorksheetFunction.Substitute(rng.Value, "@", "")
Next rng
End Sub

Gruß

TF