pętla for each dla wartości mieszczącej się wpodanym przedziale

Hej,
mam pytanie:
Mam zamienić wartość komórek (kolumna F) mieszczących się w przedziale 6000-10000 na 6-10t, wpisujac kod niestety nie działa:. co robie zle?

Sub masa_calk()

Dim tonaz As Variant

For Each tonaz In Worksheets("Podsumowanie").Range("F:F")
If tonaz.Value <> "6000 - 10000" Then
tonaz.Value = "6 - 10t"

Exit For
End If
Next tonaz

End Sub

Cytat:

mieszczących się w przedziale 6000-10000

Chodzi o to, że w komórce może być wartość od 6000 do 10000 i ma ta wartość być podzielona przez 1000? Piszesz inaczej, kod masz inaczej.

kathi5 napisał:

wartość komórek ... w przedziale 6000-10000 na 6-10t

kathi5 napisał:

If tonaz.Value <> "6000 - 10000" Then

Niezrozumiałe - nie wiadomo czy chodzi o zapis tekstowy przedziału wartości (6000-10000), czy o samą wartość liczbową jako taką (8000).