VBA to automatically hide rows based on text

Put this in the "Planning" worksheet module:

Option Explicit

Const wsPassWord = "ADMIN"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRng As Range

Set xRng = Range("B3:H12") 'adjust to suit - this should be the range of cells which may contain 'x', and which worksheets Mon-Sun link to.

If Not Intersect(Target, xRng) Is Nothing Then
    Call HideRows
End If
End Sub

Private Sub HideRows()
Dim c As Range, sWS As Variant
Dim vbHideRange As Boolean

Application.ScreenUpdating = False
For Each sWS In Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")
    With Worksheets(sWS)
        .Unprotect wsPassWord
        For Each c In .Range("C10,C23,C36, C49, C62, C75, C88, C101, C114, C127")
            If c.Value = "x" Then
                vbHideRange = True
            Else
                vbHideRange = False
            End If
            c.Offset(-1, 0).Resize(13, 1).EntireRow.Hidden = vbHideRange
        Next c
        .Protect wsPassWord
    End With
Next sWS
Application.ScreenUpdating = True
End Sub

Your VBA project is password protected...

You did change this line, didn't you:

Set xRng = Range("B3:H12") 'adjust to suit - this should be the range of cells which may contain 'x', and which worksheets Mon-Sun link to.

In your case, this should read:

Set xRng = Range("E14:K23")

But obviously, I can't check this, as your code is password protected...

Can you upload the workbook that you have made the changes to, please?

I'm afraid I can't upload attachments from this PC, but I can check the changes you have made, and test them here.

Okay - so change that xRng line, as I already suggested:

Set xRng = Range("E14:K23")

Move the following to the TOP of the worksheet module:

Option Explicit

Const wsPassWord = "ADMIN"

And change the lower case "x" to an upper case "X" in this line:

If c.Value = "X" Then

Then it does exactly what you want.

Note that detail is everything! "x" <> "X", and you need to read the code in replies, not just paste it...

Hmmmm. Case of sheet names shouldn't make any difference... Anyway. Glad you got it working.