VBA - Add Font Bold

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If .Column = 3 Then
If .Value = "m/c interest" Then
.Offset(, 2).Value = Range("L2").Value
ElseIf .Value = "interest" Then
.Offset(, 2).Value = Range("L3").Value
.Offset(, -1).Value = DateSerial(Year(Now), Month(Now) + 1, 0)
ElseIf .Value = "web internet" Then
.Offset(, 2).Value = Range("L4").Value
ElseIf .Value = "cell phone" Then
.Offset(, 2).Value = Range("N2").Value
End If
ElseIf .Column = 5 Then
.Offset(, -3).Value = Date
ActiveSheet.Unprotect "r"
Target.Locked = True
ActiveSheet.Protect "r"
End If
End With
End Sub

this part of code font bold

.Offset(, -1).Value = DateSerial(Year(Now), Month(Now) + 1, 0)

Thanks

Please read the Forum Rules & wrap this code with Code tags.

VBA Boob has done this for you.

.Offset(, -1).Font.Bold = True

Redd,

Please read forum rules below and the message to cross posters then add the link to the cross post

VBA Noob

Where does the Bold code fit ,I'am not to sure

Ignoring the rules won't help you get an answer. Add the link to the cross post and then someone will help you

VBA Noob

A VBA to
Data in column B
Column A to E
Row 2:500
Every other row cell shaded ,colorindex=20,next row no format
empty rows no format
Thanks

You don't need VBA to do this, you can achieve this with Conditional Formatting.

Please read forum rules below and the message to cross posters and then add the link to the other forums

VBA Noob

Place this in the Worksheet code

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng    As Range
    Dim R      As Long
    Dim C      As Long

    Set rng = ActiveSheet.UsedRange
    C = rng.Columns.Count
    For R = 3 To rng.Rows.Count
        If R Mod 2 = 0 Then Range(Cells(R, 1), Cells(R, C)).Interior.ColorIndex = 20
    Next R
End Sub