Try this macro (change the worksheet reference to your actual worksheet
name); it will ask you for the month value to process and then handle all
the necessary column hiding/unhiding as required ...

Sub HideColumns()
Dim X As Long, Answer As String
Answer = Application.InputBox("Which month number?", _
"Get Month Number", Type:=1)
If Answer < 1 Or Answer 12 Then
MsgBox "Bad month number... run the macro again."
Exit Sub
End If
With Worksheets("Sheet6")
Application.ScreenUpdating = False
.Columns.Hidden = False
For X = 2 To 49
If .Cells(25, X).Value < Answer - 1 Or _
.Cells(25, X).Value Answer + 1 Then
.Columns(X).Hidden = True
End If
Next
Application.ScreenUpdating = True
End With
End Sub

--
Rick (MVP - Excel)


"clr" wrote in message
...
Hi Rick.........thanks for your interest.
My numbers are all in consecutive order, about eight years worth, but may
not contain all the months for each year. For instance, the first year
might show 1 ,2,3,6,7,9,12 and the second year might show 1,3,6,9,11, etc
etc. What they are are months in which I have had Blood Tests taken, and
they are not always the same each year. What I want to see is, if I
select 2 according to my above date, I would expect to see all columns
with 1,2,3 in row 25 from the first year and 1,3 from the second and all
other columns hidden. What I'm doing is charting this data and want to
observe my BloodTest readings for a particular time of the year to see if
any of the readings are seasonal. I'm therefore looking for columns with
the specific month numbers in them and not just the column next to the one
of my choice......I may even have data for two occasions in the same
month...both would have the same number in row 25.

Hope this helps
Vaya con Dios,
Chuck, CABGx3






"Rick Rothstein" wrote in message
...
Are your month numbers in consecutive order through the range B25:AW25
like this?

1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4...etc

Also, do you want all the month numbers you indicated to remain visible
or just the first one in the list of month numbers?

--
Rick (MVP - Excel)


"CLR" wrote in message
...
Hi All........
I have a Range named "Months" which is B25:AW25. Each cell in that
range
contains a number of 1-12 standing for a month. I would like to be able
to
hide all columns except the Month number I choose, and the one on each
side
of it. For example, if I choose the month 7, then I want to hide all
columns
except those with a 6,7, or 8 in my range. And of course if I choose
month
1, I want all except 12, 1, and 2 to be hidden, etc.

TIA for any ideas
Vaya con Dios,
Chuck, CABGx3