Select multiple rows based on cell value

[Bob Phillips]

Sub SelRows()
Dim ocell As Range
Dim rng As Range
For Each ocell In Range("B1:B10")
If ocell.Value = "Total" Then
If rng Is Nothing Then
Set rng = oCcell.EntireRow
Else
Set rng = Union(rng, ocell.EntireRow)
End If
End If
Next
If Not rng Is Nothing Then rng.Select
Set rng = Nothing
Set ocell = Nothing
End Sub