Hi All
How to format a string before write to a cell ?
Trial Run Status , Remark and Reason for Stop Formatting are bold.

Also, how to underline ?

.....

'~~ Status ALL
GPD_Remark = ""

'~~ Trial Run Status
If Application.Selection.Range(GPD.STATUS_ADD
& ir).Value < "" Then
GPD_Remark = "Trial Run Status:" & Chr(10)
& Application.Selection.Range(GPD.STATUS_ADD & ir).Value & Chr(10)
End If
'~~ Remark
If Application.Selection.Range(GPD.Remark_Add
& ir).Value < "" Then
GPD_Remark = GPD_Remark & "Remark :" &
Chr(10) & Application.Selection.Range(GPD.Remark_Add & ir).Value &
Chr(10)
End If
'~~ Reason
If Application.Selection.Range(GPD.Reason_Add
& ir).Value < "" Then
GPD_Remark = GPD_Remark & "Reason for Stop
Formatting :" & Chr(10) & Application.Selection.Range(GPD.Reason_Add &
ir).Value
End If

If GPD_Remark < "" Then
.Range(MES.STATUS_ALL_ADD &
get_row(Rng_KEY.Address)).Value = GPD_Remark
End If