Finding a number in a row based on a Week number and unhiding the column it appears in

[LemonyMidget]

So I've been trying and failing for days at trying to work this out.

Basically I need the code to look at the Headlines tab and reference E7 (Weeknumber) and find that week number in Row 46 on the 'Part' tab, and unhide the column that has the weknumber in row 46..

Please someone help

 

[gruntingmonkey]

Are your Columns A=Week1 B=Week2 ...

And also, just to confirm if the above is correct that you have 52 columns hidden and you want to unhide one depending on what is in the Headlines tab Cell E7?

 

[gruntingmonkey]

If that is correct, try the following;

Sub UnhideWeek()

'Selects the week number to look up
Weekno = Sheets("Headlines").Cells(7, 5).Value

'Unhides columns to find the column that is required
Sheets("Part").Activate
    Columns("A:AZ").Select
    Selection.EntireColumn.Hidden = False
    Rows("46:46").Select
    Selection.Find(What:=Weekno, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   Weekcol = ActiveCell.Column
    
'Rehides columns
    Columns("A:AZ").EntireColumn.Hidden = True
'Unhides Week required
    Columns(Weekcol).EntireColumn.Hidden = False
    Cells(1, 1).Select

End Sub