Auto Hide Column less than today when workbook open

[Raph85]

Hi All,

I have a monthly worksheet and I would like to hide the previous dates column automatically when the workbook is open without pressing any button. Would it be possible and Could you please help me with this if it is.

It's a basic workbook with a monthly dates column from B1 as the first date of the month and I would like the previous date column to auto hide daily as we open the spread sheet, so that it will take us direct to today's date column.

Thanks,

Stheven

 

[daverunt]

Hi,

You can use a Workbook open event.
Paste the Code in the 'This Workbook' of the VBA project.

There's a line of code for hiding all dates bar the current if required.
Also assumed it is in "Sheet1" so you need to change all references to that if not.

Also a macro to unhide all of the columns might be need. That is pasted into a normal module.

This should get you started.

Private Sub Workbook_Open()

lCol = Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column

'Start at B
For i = 2 To lCol

'Use this line if you want to hide all dates up to current
If Cells(1, i).Value < Date Then

'Use this line if you want to hide all dates bar current
'If Not Cells(1, i).Value = Date Then

Cells(1, i).EntireColumn.Hidden = True
End If
Next

 
End Sub

Sub Unhide_all()

 Worksheets("Sheet1").Cells.EntireColumn.Hidden = False
End Sub

 

[Raph85]

Thanks Daverunt... it works perfectly!

 

[daverunt]

You're welcome.
Thanks for getting back.