Solved: Bold last row of spreadsheet

[Klartigue]

I get a compile error with the following:

[VBA]Sub BoldLastRow()
'Bold last row
Dim Lastrow As Long

Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
Rows(Lastrow).Font.Bold = True

[/VBA]End Sub