Bold Last Row
Sub BoldLastRow()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Cells(Rows.Count, "A").End(xlUp).EntireRow.Font.Bold = True
Next wks
End Sub
--
HTH...
Jim Thomlinson
"ryguy7272" wrote:
I am trying a few methods to select the last row in each sheet (using a for
next loop) and bold the entire row, but nothing seems to be working. My code
is below:
Dim lastrow as Long
lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
With Range("A" & lastrow)
.Font.Bold = True
End With
I tried this too:
Rows(X).EntireRow.Font.Bold = True
Nothing has worked yet! Please help!!
Thanks,
Ryan---
--
RyGuy
|