Repetition of Code

[Guest]

I need to repeat the following code for rows 1 to 135. If the value of the
cell in Column G is false, I need to hide the whole row. Rather than type in
masses of code, can anyone suggect some sort of loop to repeat 135 times.

If Worksheets("Quote").Range("G1") = False Then
Worksheets("Quote").Rows("1").Hidden = True
End If

Many thanks

 

[Guest]

Try something like this...

Sub HideRows()
Dim intCounter As Integer

With Sheets("Sheet2")
For intCounter = 1 To 135
If .Cells(intCounter, "G").Value = False Then _
.Rows(intCounter).Hidden = True
Next intCounter
End With
End Sub

 

[Guest]

That works great. Many thanks

Try something like this...

Sub HideRows()
Dim intCounter As Integer

With Sheets("Sheet2")
For intCounter = 1 To 135
If .Cells(intCounter, "G").Value = False Then _
.Rows(intCounter).Hidden = True
Next intCounter
End With
End Sub