Font Sınıfının Bold Özelliği Kurulamıyor Hatası

[KAIZEN1]

Merhabalar,

makro kaydediciyi kullanarak koşullu biçimlendirme oluşturdum ama çalıştırdığım da "Font Sınıfının Bold Özelliği Kurulamıyor Hatası" alıyorum yardımlarınızı rica ederim.

Sub deneme()
'
' deneme
'

'
Columns("A:AZ").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$AZ$5<>0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub