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

Range(lRow, lColumn).Select
Selection.Font.Bold = True
This will make the text in the cell bold.

" wrote:

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

Office Helper
Thanks, works nicely

For Each cell In _
Range("A2:A" & Cells(Rows.Count, "a").End(xlUp).Row)
With Cells(cell.Row, cell + 1)
.Value = "B"
.Font.Bold = True
End With
Next cell
===
OR
=======
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
With Cells(i, Cells(i, "a") + 1)
..Value = "B"
..Font.Bold = True
End With
next i
--
Don Guillett
SalesAid Software

wrote in message
ups.com...
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