Dave
I'm in trouble again

Below is the macro I'm using (the one you gave me) BUT instead of
highlighting the last row it highlights and bolds the first row all the way
across to the last column in the spreadsheet. It should stop around column
Q .. thanks

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
'then format .rows(lastrow)

..Rows(LastRow).Font.Bold = True
.Rows(LastRow).Interior.ColorIndex = 15

End With

End Sub


"Dave Peterson" wrote:

I'm not sure how this change would have helped--the code starts at the bottom
and works up.

But glad you got it working.

Wanna Learn wrote:

Good Morning!
It works!
Thank you, thank you Dave . You are great . I had mental block
yesterday. The only thing I did different today was that I deleted the
first two rows in the worksheet that were blank. Again thank you

"Wanna Learn" wrote:

Thanks Dave
I copied the macro, but it does not work . My last column that always has
data is Q. I am overlooking something , sorry I just don't get it. Please
clarify

"Dave Peterson" wrote:

Sometimes you don't need to loop.

If you can pick out a column that always has data when the row is used, you can
use that to find the last row.


Dim LastRow as long
With worksheets("Sheet1")
lastrow = .cells(.rows.count,"X").end(xlup).row
'then format .rows(lastrow)
end with




Wanna Learn wrote:

I created a macro and it works fine, however I want to add a loop. (Hope
that is the term) I want to be able to go to the last row in the worksheet
and highlight the row in grey and make the font bold .

--

Dave Peterson


--

Dave Peterson