Hücre Değerine Göre Sütun Gizle

[meslek5]

Merhaba,
C22:BT22 arasında değeri "A" olan sütunları gizlemek istiyorum. Aşağıdaki kodla boş sütunları silebildiğimiz gibi bu işlem içinde uyarlayabilir miyiz?
şimdiden teşekkür ederim.

Range("C22:BT22").SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

 

[YUSUF44]

Şöyle olabilir:

For Each hucre In [C22:BT22]
    If hucre.Value = "A" Then
        Columns(hucre.Column).EntireColumn.Hidden = True
    Else
        Columns(hucre.Column).EntireColumn.Hidden = False
    End If
Next