I'm very new to VBA so please bare with me.

I am looking at a way of simplifying the following code I have used to hide cells based on a certain cell value.

Here is a section of it, however it goes on right up until row 202 on one sheet (more on other sheets).

Whilst this code gives the desired result, it becomes very slow the more that is added.

```
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("AD31").Value = "Yes" Then
        Rows("32:39").EntireRow.Hidden = False
    ElseIf Range("AD31").Value = "No" Then
        Rows("32:39").EntireRow.Hidden = True
    End If
    If Range("AD40").Value = "Yes" Then
        Rows("41:48").EntireRow.Hidden = False
    ElseIf Range("AD40").Value = "No" Then
        Rows("41:48").EntireRow.Hidden = True
    End If
    If Range("AD49").Value = "Yes" Then
        Rows("50:57").EntireRow.Hidden = False
    ElseIf Range("AD49").Value = "No" Then
        Rows("50:57").EntireRow.Hidden = True
    End If
    If Range("AD58").Value = "Yes" Then
        Rows("59:66").EntireRow.Hidden = False
    ElseIf Range("AD49").Value = "No" Then
        Rows("59:66").EntireRow.Hidden = True
    End If

```

...and so on

Thanks