How do you make Character "B" Bold

Sub BonusNumbering()
Dim cell As Range
Dim lRow As Long
Dim lColumn As Long
Application.ScreenUpdating = False
For Each cell In _
Range("AW2:AW" & _
Range("AW65536").End(xlUp).Row)
lRow = cell.Row
lColumn = cell.Value + 1
Cells(lRow, lColumn) = "B"
Next 'cell
Application.ScreenUpdating = True
End Sub

With Thanks