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?

Please Login or Register  to view this content.

Perhaps something like:

Please Login or Register  to view this content.

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.

Please Login or Register  to view this content.

The basic idea is like this:

Please Login or Register  to view this content.