I am using the following code to select the entire row where cell value is equal to "Total"
But this code is not selecting the entire row of all the cells containing the value "Total" and only selects the Last cell row.
This is what I have observed that the code releases the lase selection when new row is selected.
How can I fix the problem?
code is:
Sub SelRows() Dim ocell As Range For Each ocell In Range("B1:B10") If ocell.Value = "Total" Then ocell.EntireRow.Select End If Next End Sub