iCol = Application.Match(A1,Range("P1:Z1"),0)
   Columns("P:P").Resize(iCol-15).Hidden = True

This assumes that A1 has the month name string, not a date,a s does P1:Z1,
and that all months are in that range.
--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

Hi you can try this, the first lot of code gets pasted into the cod
sheet for sheet1 (assuming this is where you want to do the business
and the next lot can just go in a module of its own, it worked for me
When you activate the sheet it will hide the column that has the heade
matching A1 when you close the work book it will un hide all column
ready for the next time you open it, i'm sure there are better ways o
achieving this but this should get you started.

Simon

Private Sub Worksheet_Activate()
Dim Rng As Range
Dim mycell
With Sheets("Sheet1")
Set Rng = Range("P1:Z1")
For Each mycell In Rng
If mycell.Text = Range("A1").Text Then
mycell.EntireColumn.Select
Selection.EntireColumn.Hidden = True
End If
Next mycell
End With
End Sub

Sub Auto_Close()
Cells.Select
Selection.EntireColumn.Hidden = False
End Su