Column number reference using cell reference

My Apologies. Thanks for your help.

Bump. Does anyone have any thoughts?

So I have tried another approach with this question. I have attached the spreadsheet in question. In the 2015 tab I already have some "Hide Quarter" buttons which hide/unhide everything but the current quarter. They work. It's the code for the buttons below which I can't get to work.

As you can see I am intending the user to enter in a project start and end date and I want to see all columns outside these dates hidden. So far this is where I am with the code but I keep getting a "Compile Error: Next without for". From what i can see I have the next and for's but I get a bit out of my depth there.

'Unhide all columns
Columns("C:BC").Hidden = False  'Unhide all week Columns


If Target.Address = "$B$6:$B$7" Then

Dim the_selection_Before As String
Dim the_selection_After As String
Dim Week_review As String

the_selection_Before = Sheet1.Range("$B$6")

    Dim Rep As Integer
    For Rep = 3 To 54
        the_column = GetColumnLetter_ByInteger(Rep)
        Week_review = Sheet1.Range(the_column & "4")
         If Week_review < the_selection_Before Then
         Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = True
         Else
         Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = False
    Next Rep

the_selection_After = Sheet1.Range("$B$7")

Dim Rep2 As Integer
For Rep2 = 3 To 54
    the_column = GetColumnLetter_ByInteger(Rep)
    Week_review = Sheet1.Range(the_column & "4")
    If Week_review > the_selection_After Then
    Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = True
    Else
Next Rep2

End If
Application.ScreenUpdating = True
End Sub

Can someone provide some feedback?

The IF / THEN ELSE statement in each FOR / NEXT loop is missing its END IF.

Adding ENF IF just before NEXT should prevent the error (the compiler gets to NEXT before the IF decision has ended, hence the obscure error message.)

Hopt this helps.
- Stu

OK thanks Stu that helped. It's still producing errors. This time "method 'Range' of object '_worksheet' failed".

Sub Hide_ProjectA()
'
' Hide_ProjectA Columns
' Hides columns outside a specified project date range

'Unhide all columns
Columns("C:BC").Hidden = False  'Unhide all week Columns


'If Target.Address = "$B$6:$B$7" Then

Dim the_selection_Before As String
Dim the_selection_After As String
Dim Week_review As String

the_selection_Before = Sheet1.Range("$B$6")

    Dim Rep As Integer
    For Rep = 3 To 54
        the_column = GetColumnLetter_ByInteger(Rep)
        Week_review = Sheet1.Range(the_column & "15")
         If Week_review < the_selection_Before Then
         Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = True
         Else
         Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = False
    End If
    Next Rep

the_selection_After = Sheet1.Range("$B$7")

Dim Rep2 As Integer
For Rep2 = 3 To 54
    the_column = GetColumnLetter_ByInteger(Rep)
    Week_review = Sheet1.Range(the_column & "4")
    If Week_review > the_selection_After Then
    Sheet1.Range(the_column & ":" & the_column).EntireColumn.Hidden = True
    Else
End If
Next Rep2

'End If
Application.ScreenUpdating = True
End Sub

And the GetColumnLetter_ByInteger code:

Public Function GetColumnLetter_ByInteger(what_number As Integer) As String
GetColumnLetter_ByInteger = ""

MyColumn_integer = what_number

    If MyColumn_integer <= 26 Then
    colum_letter = Chr(64 + MyColumn_integer)
    End If
    
    If MyColumn_integer > 26 Then
    column_letter = Chr(Int((MyColumn_integer - 1) / 26) + 64) & Chr(((MyColumn_integer - 1) Mod 26) + 65)
    End If
    
    GetColumnLetter_ByInteger = column_letter

End Function

Anyone have any ideas? I didn't imagine this would be such technical code. All I wanted was to his columns outside a users specified range. I'm not sure my code is even on the right path...