[kapetang]

Μάρω, Καλημέρα

Καλύτερα να χρησιμοποιήσεις τον παρακάτω κώδικα:

Private Sub cmdHideCols_Click()
    Dim rngCol As Range, c As Range, rngHide As Range

    'Ορίζεται η περιοχή με τα ονόματα των στηλών
    Set rngCol = Range("tblColumns")
    Application.ScreenUpdating = False
    'εμφάνιση όλων των στηλών του πίνακα
    Range("tblData").EntireColumn.Hidden = False

    For Each c In rngCol
        If c.Offset(, 1) Then
            Set rngHide = Range("tblData[" & c & "]")
            rngHide.EntireColumn.Hidden = True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Στον κώδικα πρόσθεσα και την εντολή Application.ScreenUpdating, ώστε η απόκρυψη/εμφάνιση των στηλών να γίνεται ταχύτερα και ομαλότερα.