Hiding range of rows

[jimayers]

Hello - I am having trouble with finding a value in cells in "A" (= "ethnic balance") and hiding rows in a certain range around the found value. Here is what I have started but cant get to work:
Sub HideRows()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim hRow, uRow, bRow As Range
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To Lastrow
If Cells(i, "A") = "ETHNIC BALANCE" Then
hRow = Range(i, "A").Row
bRow = Range(i + 3, "A").Row
uRow = Range(i - 8, "A").Row
Range.Row("uRow:hRow").Hide
Range.Row("hRow:dRow").Hide
End If

Next
Application.ScreenUpdating = False
End Sub

Thanks for your help and if possible point out my errors - Jim A

 

[HalfAce]

So... you're all figured out then?
The code I posted is doing what you asked for as I understand it. (We don't really need the 'i' after 'next' in this case, though it doesn't hurt.)
Right now it is case sensitive, looking only for all caps instances of 'ETHNIC BALANCE'. You can make it not case sensitive by inserting:
Option Compare Text at the very top of your code module, above any subs you might have.

Hope it helps.