Private Sub CommandButton1_Click()
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    If CommandButton1.Caption = "Hide" Then
        col_ = Cells.Find(What:=Date + 2, After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column
        Cells(1, col_).Resize(1, Columns.Count - col_ + 1).EntireColumn.Hidden = True
        CommandButton1.Caption = "Show"
    Else
        Columns.EntireColumn.Hidden = False
        CommandButton1.Caption = "Hide"
    End If
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 0
End Sub