Možno v téme také niečo je, pozrel som lem ten jeden príspevok, a upravil by som ho asi takto (píšem z tabletu, za príp. technickú sa ospravedlňujem...):
Dim Rng as Range, s as Integer
For s = 3 To 24
If Cells(1, s).Value = 1 Then
If Rng Is Nothing Then Set Rng = Cells(s) Else Set Rng = Union(Rng, Cells(s))
End If
Next s
If Not Rng Is Nothing Then Rng.EntireColumn.Hidden = True
Ak chcete opätovným stlačením tlačítka zobraziť stlpce, tak si niekam pri skrytí uchovajte hodnotu, že bolo niečo skryté, aby tlačítko vedelo, ktprú časť kódu výkonať. Tlačítka mávajú napr vlastnosť Tag, kde sa dá uložiť hodnota,
Range("C:X").EntireColumn.Hidden = False
Zobrazí všetky riadky naspäť.
citovat