Sutun Gizle, yardım

[mozdem]

Sub Sutun_Gizle()
    
    Columns("L:L").Select
    Selection.EntireColumn.Hidden = True

End Sub

Yukarıdaki kodda sutunu gizleyebiliyorum. Ancak ben aşağıdaki gibi bir kod kullanmak istiyorum. çünkü şart oluşur ise sütunları gizleyecek yada gizlemeyecek. Onun için aşağıdaki kod çalışmıyor. For Next döngüsü içinde nasıl çalıştırabilirim
Teşekkürler.

Sub Sutun_Gizle()
    For s = 9 To 100
        Column.Cells(s, 1).Select  
        Selection.EntireColumn.Hidden = True
    Next
Range("A1").Select
End Sub

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Ekteki Dosya
İşinizi Görürmü Acaba

 

[mozdem]

Merhaba
İyi Çalışmalar
Ekteki Dosya
İşinizi Görürmü Acaba

Teşekkür ederim. Ellerinize sağlık.

 

[ZorBey_]

Kolay Gelsin
İyi Çalışmalar