Changing font style and size

[Livin404]

Greetings, I generally know how to adjust the font size through VBA. However, when I'm trying it now it is changing the whole worksheet. I only want it to affect only the one cell. This cell can moved up or down depending how many entries are in Column A. The following VBA inserts my text perfectly, but i would like in in Times New Roman with font size 12 and in bold. No border.

Thank you

Sub find_last_plus_3()
Lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).row
Range("A" & Lastrow + 3).Value = "REVIEWED BY:" & " " & Application.UserName
           
        
End Sub

 

[sericom]

Sub find_last_plus_3()
    Lastrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    With Range("A" & Lastrow + 3)
        .Value = "REVIEWED BY:" & " " & Application.UserName
        .Font.Size = 12
        .Font.Name = "Times New Roman"
        .Font.Bold = True
    End With
End Sub

 

[Livin404]

Thank you, I thought I typed that, but obviously I did something wrong. Exactly what I needed.