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

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

Awesome!!! Thank you so much Jim!!!


--
RyGuy


"Jim Thomlinson" wrote:

> 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