Zahl zuweisen

ich habe hier ein Makro das einer grünen Zelle eine Zahl zuweist.
Da meine Tabelle sehr groß ist, dauert es eine Weile bis das Makro alle grünen Zellen eine Zahl zugewiesen hat. Wie kann ich dieses Makro ändern, dass es nach grünen Zellen nur in Spalte AC sucht??????

Dim Zelle As Range, Zahl
Zahl = InputBox("Bitte eine Zahl eingeben")
If Zahl = "" Then Exit Sub
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex = 4 Then
Zelle = Zahl
End If
Next Zelle

Max M.