Macro to Hide/Unhide Multiple Rows Based on Cell Value

I have a sheet with regions listed and a selector to choose whether or not to "enable" the region. If "yes" is selected, the value 1 is returned, if "no" is selected the value 0 is returned.

I want to write the macro like the one below, but instead of listing the rows as ranges I need to refer to multiple, specific rows. Ex. 15, 18, 23.

Private Sub Worksheet_Calculate()
If Range("D7").Value = 0 Then
Rows("15:25").Hidden = False                           Want to list specific rows here, not a range of rows
End If

If Range("D7").Value = 0 Then
Rows("26:35").Hidden = True
End If

Thanks

Try it like this..

Range("9:9,13:13,17:17,20:20,23:23,26:26").Select
Selection.EntireRow.Hidden = True