I am a newbie!

I am running a macro to dump timescaledata into excel. I want to bold each
subtotaled row(done with the subtotal command). I cannot for the life of me
figure out what I've done wrong. I want to cycle through the range, and
wherever the text includes the word "Total", bold the entire row.

JEff


==================================================
everything is declared . . . .

Set xlRng = xlRng.Columns("a")
xlRng.Select

For Each cell In xlRng
If Right(cell.Value, 5) = "Total" Then
EntireRow.Select.Font.Bold = True
End If
Next cell