Marilyn,

Maybe this

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("F365") = "No") Then
Range("12:12,15:15,17:17,33:33,45:45,89:89").Entir eRow.Hidden = True
End If
End Sub

Mike

"Marilyn" wrote:

Hello my code is
Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("F365") = "No") Then
myArr = Array("12", "15", "17","33","45","89")
EntireRow.Hidden = True
End If
End Sub
and it does not work.....
This is what I want to do
If F365 = "No" then hide rows 12,15,17,33,45,89
the range is a1:X360
thanks for your help