Lop to Bold Entire Row if cell contains text

Hello!

I am currently stuck on why my loop is failing to bold the row when the cell in B contains text. My table length changes daily so the text cells in column B that would need to be bold vary. I was looking into starting from the bottom up with something like Range("B", Selection.End(xlUp)).Select but still the row would not bold. There are only 7 to 10 cells that will have text in column B, then bold the row. The table can be a few hundred rows.

The loop is:

Sub BoldtheRows()

Dim TotalRows As Long, r As Long

TotalRows = Range("B" & Rows.Count).End(xlUp).Row

For r = 1 To TotalRows
If Range("B" & r).Value = "*" Then
Range("B" & r).EntireRow.Font.Bold = True
End If
Next r

End Sub

Any help would be greatly appreciated.

Thanks,

JT

Thank you Arlu1201! Looking forward to learning as much as possible. Too bad my first post had a spelling error in the title