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.

Maybe:

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(4, "A").Resize(, 18).Cells
            With rngCell
                                    If .Value Like "*[:]*" Then
                    If .HasFormula Then .Formula = .Value
                    .Characters.Font.Bold = True:End If

                    x = InStr(.Value, ":")
                    .Characters(x).Font.Bold = True
                            End With
        Next rngCell
    End If
    MsgBox "Done!", 64
End Sub

No, it's not working fine. It bolds the entire text. I want the name in normal text here 'Robert' should be in a normal/regular font and not bold.

Please see the attachment.

Thank you.

Probably should rewrite thus but:

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(4, "A").Resize(, 18).Cells
            With rngCell
                    If .HasFormula Then
                    .Formula = .Value: .Characters.Font.Bold = True: End If

                    x = InStr(1, rngCell, ":")
                    If x Then
                    .Characters(x).Font.Bold = True
                    .Characters(x + 1).Font.Bold = False
                                          End If:      End With
        Next rngCell
    End If
    MsgBox "Done!", 64
End Sub

Hi xladept,
Thank you. Now it's working fine.

Thank you for solution.

You're welcome and thanks for the rep!