How to make some text in a Cell Bold?

Hi all,

I have the following code that selects the text in Cell (O "whatever") adds a line then the date and time, then adds another line with Reopened and the text you enter in the inputbox.

I would like to make the last line from Reopened show as bold? Can this be done?

Also any way to make the last three lines with Borders.LineStyle = xlThin = 2, HorizontalAlignment = xlLeft and VerticalAlignment = xlTop into one line?

  testme = Worksheets("Open").Cells(nextrow, "O").Value
            ReopenStr = testme & vbLf & Now & " - " & "Reopened" & " - " & strResult
            Worksheets("Open").Cells(nextrow, "O").Value = ReopenStr
            
            Worksheets("Open").Range("A" & nextrow, "O" & nextrow).VerticalAlignment = xlTop
            Worksheets("Open").Range("A" & nextrow, "O" & nextrow).HorizontalAlignment = xlLeft
            Worksheets("Open").Range("A" & nextrow, "O" & nextrow).Borders.LineStyle = xlThin = 2

Perhaps something like:

    testme = Worksheets("Open").Cells(nextrow, "O").Value
    ReopenStr = testme & vbLf & Now & " - " & "Reopened" & " - " & strResult
    Worksheets("Open").Cells(nextrow, "O").Value = ReopenStr
    Worksheets("Open").Cells(nextrow, "O").Font.Bold = True
                
    With Worksheets("Open").Range("A" & nextrow, "O" & nextrow)
        .VerticalAlignment = xlTop
        .HorizontalAlignment = xlLeft
        .Borders.LineStyle = xlThin = 2
    End With

Thank you for the quick response.
I was able to shorten the code by adding a with, job done thank you.
With regards to the Bold, I was I really only want to Bold the Now (Time stamp),
I did not explain too well sorry.

ReopenStr = testme & vbLf & Now & " - " & "Reopened" & " - " & strResult

The basic idea is like this:

Cells(1, 1).Characters(Start:=5, Length:=2).Font.Bold = True