I have a spreadsheet in which daily data was imported. At the end of each day
I need to color 1 row 7 columns wide (as if to make a line that inlcudes the
totals), these colored cells contain totals for the day. How might I
automate this. It takes so long to go through by hand. Any ideas
appreciated. Thanks.

Yes that is possible to do. I'm not sure where your "Totals", thus I can't
write code to find them. So I will have to make some assumptions. Assuming
you have the word "Totals" in Col. A and the actual totals range is next to
"Totals", this should work for you. I highlighted the Font Red.

Sub ColorTotals()

Dim myTotalRow As Long

myTotalRow = Sheets("Sheet1").Range("A:A").Find("Totals").Row

Sheets("Sheet1").Range(Cells(myTotalRow, 2), Cells(myTotalRow,
8)).Font.Color = vbRed

End Sub

Hope this helps!
--
Cheers,
Ryan


"Ymtrader" wrote:

> I have a spreadsheet in which daily data was imported. At the end of each day
> I need to color 1 row 7 columns wide (as if to make a line that inlcudes the
> totals), these colored cells contain totals for the day. How might I
> automate this. It takes so long to go through by hand. Any ideas
> appreciated. Thanks.

Look in the vba help index for FINDNEXT.There is a good example to color all
rows with your find
Then modify to search for "Total"

c.resize(0,7).interior.colorindex=6

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Ymtrader" <(E-Mail Removed)> wrote in message
news:90ECD6D7-2DBE-492B-9775-(E-Mail Removed)...
>I have a spreadsheet in which daily data was imported. At the end of each
>day
> I need to color 1 row 7 columns wide (as if to make a line that inlcudes
> the
> totals), these colored cells contain totals for the day. How might I
> automate this. It takes so long to go through by hand. Any ideas
> appreciated. Thanks.