VBA code for hiding rows based on Data Validation cells

Hi!
I'm new to the forum and I have come across an issue today that I could really use some help with. I have a workbook with many sheets, but currently on the main sheet I'm have 10 data validation boxes in the A column and when you place the validation cells to "No" I want to had 4 rows below the cell. Likewise, I would like to unhide the rows if the cell changes to "Yes". This is repeated several times down the sheet. I'm able to get the first one to work, but have not been successful with the second validation cell and further.

Here is a example of the code that I'm using:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A16") = "Yes" Then
Rows("18:21").Select
Selection.EntireRow.Hidden = False
Range("A16").Select
Else
Rows("18:21").Select
Selection.EntireRow.Hidden = True
If Range("A21") = "Yes" Then
Rows("25:28").Select
Selection.EntireRow.Hidden = False
Range("A21").Select
Else
Rows("25:28").Select
Selection.EntireRow.Hidden = True
End If
End Sub

Any help would be greatly appreciated. Thanks!!

If the Data Validation cells are the only cells in column A that will have a Yes or a No, this could work as well.

Please Login or Register  to view this content.

Thank you to the both of you. It works as requested.


Also, Thank you ~tigeravatar for letting me know about the forum rules. As much as I have read on this forum site I should have known better.


Best Regards!

jrtdcg