Открыть скрытый столбец.

[segail]

Я не считал, не вижу смысла. В коде выглядит так Range(“D1: NW1”)

[segail]

Начиная с D1 383 столбца
В году же 365 дней...

[pivas]

Смысл в том, что на 257 ходу цикл будет выдавать ошибку. Последний столбец в Excel имеет имя IV.

[pivas]

А в общем случае может выглядеть так:
For i=3 to 256
If Lab_Data.Caption = Cells(i,1).Text Then
Cells(i,1).EntireColumn.Hidden = False
End If
Next i

[segail]

Вы в смысле того что столбцов мало? Это Excel 2007.
Пример в рисунке.

[pivas]

Простите, не сообразил...
Поправьте в цикле 256 на 283

[segail]

Значит полноценно код должен выглядить так?

Private Sub CommandButton4_Click()
    Dim i As Integer
    For i = 4 To 386
        If Lab_Data.Caption = Cells(i, 1).Text Then
            Cells(i, 1).EntireColumn.Hidden = False
        End If
    Next
End Sub

Наверно в цикле надо поставить 386?
В смысле в том, что в линейка дат, которая предоставлена в рисунке, последняя дата декабря 31.12.2010 приходится на 386 ячейку.
Линейка по замыслу имеет пробелы потому и не 365, тем более первая дата 01.01.2010 начинается с четвертого столбца первой строки.

[segail]

Проверил.
Код не работает, не выдает ошибок, просто молчит.
Видать что он правильный но выполняет не ту функцию, он не находит дату и не выполняет данное условие…

[pivas]

Я же говорил будут проблемы с форматом даты. В ячейке дата в формате даты, а Вы ищете дату в текстовом формате.

[segail]

Тогда так что ли?
If CDate(Lab_Data.Caption) = CDate(Cells(i, 1).Text) Then