hiding a range of rows using vba

[Cossie]

Hello all

I need to be able to hide a series of rows and am using the code below to attempt this, but it is wrong. Any assistance would be appreciated. ray:

If ComboBox1.Text = "Numbers" Then
Rows("2:3,7:8,12:13,17:18,22:23,27:28,32:33,37:38").Select
Selection.EntireRow.Hidden = True
Rows("4:5,9:10,14:15,19:20,24:25,29:30,24:35,39:40").Select
Selection.EntireRow.Hidden = False
Range("D4").Select
End If

 

[Legacy 21301]

Range("2:3,7:8,12:13,17:18,22:23,27:28,32:33,37:38").Select

 

[Cossie]

Thanks for the advice