You had forgotten the sheet
[vba]
Sub BoldLastRow()
'Bold last row
Dim Lastrow As Long
With Activesheet
Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
. Rows(Lastrow).Font.Bold = True
End With[/vba]
You had forgotten the sheet
[vba]
Sub BoldLastRow()
'Bold last row
Dim Lastrow As Long
With Activesheet
Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
. Rows(Lastrow).Font.Bold = True
End With[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote