kodun rengi yeşil değil mi
o kodun en başında tek tırnak ' olmalı o tırnağı kaldırmalısınız
renklendirme içinde For Each Item In RngBoldDz kod bloğu aşağıdaki gibi düzeltilmeli

Dim Item As Variant

For Each Item In RngBoldDz

    ShtHdf.Range(Item).Font.Bold = True

    ShtHdf.Range(Item).Font.Color = 255

    ShtHdf.Range(Item).Interior.Color = RGB(221, 217, 196)

Next Item