VBA to Hide Rows

[Cagey93]

Hello, I am wanting a macro to automatically run when a spreadsheet is opened to check a cell to see what month it is then hide some rows off the back of that.

It should look something like the below saying if C5 is one of those months then hide rows 12-18 in the sheet Check List.

Private Sub MonthTasks()

For a = 12 To 18


Select Case Range("C5").Value


Case "August", _
     "December", _
     "February", _
     "June", _
     "March", _
     "May", _
     "November", _
     "September"


Then


Worksheets("Check List").Rows(a).Hidden = True




End Sub

Any help appreciated.

 

[Fluff]

How about

Private Sub Workbook_Open()
    With Worksheets("Check List")
        Select Case .Range("C5").Value
            Case "August", _
                    "December", _
                    "February", _
                    "June", _
                    "March", _
                    "May", _
                    "November", _
                    "September"
                .Rows("12:18").Hidden = True
        End Select
    End With
End Sub

 

[Cagey93]

How about

Private Sub Workbook_Open()
    With Worksheets("Check List")
        Select Case .Range("C5").Value
            Case "August", _
                    "December", _
                    "February", _
                    "June", _
                    "March", _
                    "May", _
                    "November", _
                    "September"
                .Rows("12:18").Hidden = True
        End Select
    End With
End Sub

This doesn't seem to work, I have put in the code but when opening the spreadsheet it doesn't run, if I go in and run it manually it doesn't do anything either.

I don't get any errors to indicate that a problem has occurred either.

the cell C5 definitely shows atm November with the formula =TEXT(EDATE(TODAY(),0)," MMMM") so that is correct.

I cant think why it wouldn't work.

 

[Cagey93]

Hi Sorry,

got it working I have changed C5 to lookup a value in another cell 11 in this months case then show November which seems to work.

Thank you.

 

[Fluff]

Glad you got it sorted & thanks for the feedback