Tüm sayfalarda belli hücreleri bold yapma

[sakoz]

Üstadlarım Merhaba ,

Bir konuda daha yardımınıza ihtiyacım var. Dosyamızda her sayfadaki F1 ve AA1 hücrelerine aşağıdaki kod ile yazdırılması gerekenleri yazdırıyoruz fakat bunun Kalın (Bold) olması gerekiyor.

Ben birşeyler denedim fakat maalesef çözüme ulaşamadım.
Yardımcı olusanız çok memnun olurum
İyi çalışmalar,

Sub YAZI()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Range("F1").Value = "" Then sh.Range("F1").Value = "STOK KODU"
If sh.Range("AA1").Value = "" Then sh.Range("AA1").Value = "ESKI STOK KODU"
Next
End Sub

 

[askm]

Sub YAZI()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Range("F1").Value = "" Then sh.Range("F1").Value = "STOK KODU":      sh.Range("F1").Font.Bold = True
If sh.Range("AA1").Value = "" Then sh.Range("AA1").Value = "ESKI STOK KODU": sh.Range("AA1").Font.Bold = True
Next
End Sub

 

[kemal turan]

Merhaba,
Çalışma kitabının kod bölümüne

Private Sub Workbook_Activate()
YAZI
End Sub

Bir modül içerisine

Sub YAZI()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Range("F1").Value = "" Then sh.Range("F1").Value = "STOK KODU"
If sh.Range("AA1").Value = "" Then sh.Range("AA1").Value = "ESKI STOK KODU"
sh.Range("F1").Font.Bold = True
sh.Range("AA1").Font.Bold = True
Next
End Sub

 

[kemal turan]

SN.Askm hocam
Cevabınızı görmedim.
Selametler

 

[sakoz]

Üstadlar valla hızır gibi yetiştiniz sağolun varolun. Ellerinize sağlık