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