[kapetang]

Καλησπέρα

Και μια άλλη πρόταση.

Εφόσον μας ενδιαφέρει μόνο η απόκρυψη και η εμφάνιση συγκεκριμένων στηλών σε ένα φύλλο, δε χρειάζεται να ασχοληθούμε με τη θέση των δεδομένων στο φύλλο.

Ο παρακάτω κώδικας κάνει ακριβώς αυτό:

Public Sub HideUnHideCols()
    Dim rng As Range
    
    Set rng = Range("e:e,g:h,j:k,m:n,p:q,s:t,v:w,y:y")
    rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
    
End Sub

Αντώνη, δες και το συνημμένο