Çalışma sayfasındaki verileri temizlerken dolgu rengini değiştirme

[vuranoğlu]

Merhaba
Çalışma sayfasındaki verileri
Sub Temiz()


Sheets("1").Range("A:AK") = ""
'Sheets("1").Interior.Color("A:AK") = 2

End Sub
bu kod la temizliyorum, aynı zamanda dolgu rengini nasıl değiştiririz.?
Teşekkürler.

 

[Haluk]

Sheets("1").Range("A:AK").Interior.Color = 2

.

 

[vuranoğlu]

Teşekkürler.