IF Statement For Conditional "Bolding"

Hi, Jrub,

maybe like this:

With Range("A" & LR + 2)
   If IsEmpty(.Offset(0, 1).Value) Then
      .Font.Bold = True
   End If
End With

If the cells in Column B are really empty (blanks, no formulas) you could try something like this:

Dim rngCell As Range

On Error Resume Next
For Each rngCell In Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
  rngCell.Offset(0, -1).Font.Bold = True
Next rngCell

Ciao,
Holger