Cambiar a negrita en las columnas, B,C,D,E, cuando se ejecuta esta macro

Buenas noches
Necesitaria que al ejecutar esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Range("B" & Target.Row) = Date - 1
End If
End Sub

Cambiar a negrita en las columnas, B,C,D,E, dela misma linea, cuando se ejecuta esta macro.
Un saludo