VBA hiding non adjacent rows

[A440]

Hi

I use this code to hide rows in various sheets.

Easy question, how do I hide rows that are not next to each other?
ie, Rows 45, 47, 89, 91

Thanks.

Sub Hide_Unhide_Rows()
'
' Hide Unhide Rows
'
If Rows("45").EntireRow.Hidden = False Then
Rows("45").EntireRow.Hidden = True
Else
Rows("45").EntireRow.Hidden = False
End If
End Sub

[GC Excel]

Hello A440,

Here's a sugestion :

Please Login or Register  to view this content.

[A440]

Thanks works for me, it takes a while to do it's thing, but hey :-)