Ocultar y mostrar filas según un parámetro.

Como no indicas cuál será el parámetro, te dejo unas instrucciones. Estimo que esto lo necesitarás en alguna macro iniciada.
If Sheets("Hoja2").Range("B3") = 5 Then
Sheets("Hoja1").Range("A4").EntireRow.Hidden = True
Else
Sheets("Hoja1").Range("A4").EntireRow.Hidden = False
End If

Hola buenos días! Gracias por responderme.
Te explico, el parámetro viene de un campo de la primera hoja. Si es 1 quiero que oculte las filas 2 a la 10 porque. Si es 2 quiero que borre de ka 3 hasta la 10 así sucesivamente hasta el 10 ya que ese es el valor máximo que pueda meter.
utilic el codigo q me enviates
y lo adapte a mi hoja:
Sub OcultarMostrar()
If Sheets("Hoja1").Range("f:29") = 1 Then
Sheets("Hoja2").Range("B5:E13").EntireRow.Hidden = True
Else
Sheets("Hoja2").Range("B5:E13").EntireRow.Hidden = False
End If
End Sub
Al ejecutarlo me dice un error en tiempo de ejcucion. Se ha producido el error 9 sibindice fuera del intervalo, de verdad no idea porque pase eso. Si me puedes ayudar por favor. Y disculpa las molestias causadas!
Gracias de Ante mano!

La primer línea debe quedar así:
If Sheets("Hoja1").Range("F29") = 1 Then
También revisá que tengas hojas de nombre Hoja1 y Hoja2

Hola como estas muchas gracias por tus repuestas anteriores, pude solucieonar el problema te debo la puntuación! Sabes no se si pueda hacerte otra pregunta por aquí. Si se puede aquí la coloco para ver si por favor me ayudas con esto ultimo de mi proyecto.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Select Case Target.Value
Case Is = 1
Range("E4:N4").Interior.ColorIndex = 4
Range("Q4:DT4").Interior.ColorIndex = 0
Case Is = 2
Range("E4:Z4").Interior.ColorIndex = 4
Range("AC4:DT4").Interior.ColorIndex = 0
Case Is = 3
Range("E4:AL4").Interior.ColorIndex = 4
Range("AO4:DT4").Interior.ColorIndex = 0
Case Is = 4
Range("E4:AX4").Interior.ColorIndex = 4
Range("BA4:DT4").Interior.ColorIndex = 0
Case Is = 5
Range("E4:BJ4").Interior.ColorIndex = 4
Range("BM4:DT4").Interior.ColorIndex = 0
Case Is = 6
Range("E5:BV5").Interior.ColorIndex = 4
Range("BY4:DT4").Interior.ColorIndex = 0
Case Is = 7
Range("E5:CH5").Interior.ColorIndex = 4
Range("CK4:DT4").Interior.ColorIndex = 0
Case Is = 8
Range("E4:CT4").Interior.ColorIndex = 4
Range("CW5:DT5").Interior.ColorIndex = 0
Case Is = 9
Range("E4:DF4").Interior.ColorIndex = 4
Range("DI4:DT4").Interior.ColorIndex = 0
Case Is = 10
Range("E4:DL4").Interior.ColorIndex = 4
Range("DM4:DT4").Interior.ColorIndex = 0
Case Is = 11
Range("E4:DP4").Interior.ColorIndex = 4
Range("DQ4:DU4").Interior.ColorIndex = 0
Case Is = 12
Range("E4:DT4").Interior.ColorIndex = 4
call Sub Worksheet_Change1
End Select
End If
Esto lo hago como para 30 celdas más y me dice que el procedimiento es demasiadop lago por lo que leí puedo usar subprocedimientos. E intentado con call procedimiento o solo con el nombre y de error
esto es lo que hago
Sub Worksheet_Change1(ByVal Target As Range)
sentencias......
end sub
Se lo agradecería mucho, Gracias!
Y disculpe la molestia