Yavaş Çalışan Kodu hızlandırma

[Feylosof]

Merhaba;
Aşağıdaki kod takriben bir dakika sürüyor. Satır sayısı artsa ne kadar daha yavaş olur kim bilir?
Burda amaçlanan kodu hızlandırma adına nasıl revize edebiliriz.

Private Sub CommandButton7_Click()
For Each alan In Range("F6:AJ31")
        alan.Value = TextBox4.Value
    Next alan
End Sub

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton7_Click()
Range("F6:AJ31") = TextBox4.Value
End Sub

 

[Feylosof]

Çok teşekkür ederim değerli üstadım.