Çalışma kitabı

[H3V3S]

Arkadaşlar excel çalışma kitabında her sayfada bulunan aynı hücreleri buton yardımıyla yazı renklerini değiştirmek istiyorum. ben elimden geldiği kadar yapmaya çalıştım ama yapamadım sadece bir sayfadaki hücreyi değiştirebiliyorum. Yazdığım makro bu yardımcı olabilirmisiniz.
Sub beyaz1()
Sheets("Sayfa1"). Range("H23:Q48"). Font. ColorIndex=1
End sub

 

[Seyit Tiken]

Tüm Çalışma Kitabı için,
For h = 1 To Sheets.Count Sheets(h).Range("H23:Q48").Font.ColorIndex = 1 Next

 

[H3V3S]

Tüm Çalışma Kitabı için,
For h = 1 To Sheets.Count Sheets(h).Range("H23:Q48").Font.ColorIndex = 1 Next

Seyit bey bunu buton için nasıl yazabilirim, butonlarla yapmak istiyorum kodu