Apply the code for entire row 4 help

Hi Friends,
I have amended the code but it's for columns. I want this formatting for entire row 4 only and not for columns. Because it's disturbing my program if there is any data using ':' sign then the same formatting is applied which I don't want.

Sub BoldText()
    Dim x As Long
    Dim rngCell As Range
    Range("G4").FormulaR1C1 = _
        "=IF(Information!R[3]C[6]="""","""",""Name of the student: ""& Information!R[3]C[6])"
    If Not Intersect(ActiveCell, Columns("a:r")) Is Nothing Then
        For Each rngCell In Cells(ActiveCell.Row, "A").Resize(, 18).Cells
            With rngCell
                                    If .Value Like "*[:]*" Then
                    If .HasFormula Then .Formula = .Value
                    .Characters.Font.Bold = True
                    x = InStr(.Value, ":")
                    .Characters(x).Font.Bold = False
                End If
            End With
        Next rngCell
    End If
    MsgBox "Done!", 64
End Sub

The ':' sign is not changing to bold. I want to bold ':' sign too.

Will you now please amend the code for entire row 4?

Any help will be appreciated.

Thanking you.