trouble with simple loop . . .ARGH!
 

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

trouble with simple loop . . .ARGH!
 

Buster, try

Dim cell as Range

For each cell In Range("A1:A1000").cells
If cell.Value Like "*Total*" Then
cell.EntireRow.Font.Bold = True
End If
Next cell

Good luck
Fred

"Buster" wrote in message
...
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