Have existing formatting code. Need to add macro to new workbook.

Have a macro that reformats a newly opened workbook. (Items such as deleting columns, and inserting formulas in a couple of fields.)
Would like to have the aformentioned macro (which is located in another workbook), add this event handler private sub below in addition to reformatting the page as described. It adds a highlight row.

The code I'd like to add is this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
        With .FormatConditions(1)
            With .Borders(xlTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 2
            End With
            With .Borders(xlBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 8
            End With
        End With
        .FormatConditions(1).Interior.ColorIndex = 42        
    End With
End Sub

Thanks in advance for some direction on this.

Petee

You could copy and paste it at the end of the reformating macro.

I had tried recording the opening of the VBA editor (right click on tab, view code), and all I got was the selecting of the page. Thoughts on opening and closing the vba editor within a macro? (The sheet tab name changes every time. . .)
Peter

John, how would I integrate the highlight active row code per OP after executing the following code?

Sub Macro4()
'
' Macro4 Macro
'

'
    Columns("E:E").Select
    Range("E4").Activate
    Selection.Font.Bold = True
    Columns("F:F").Select
    Range("F4").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
End Sub

Thanks.

Peter

You could attach it too the end.

Sub PeteABC123()
    Columns("E:E").Select
    Range("E4").Activate
    Selection.Font.Bold = True
    Columns("F:F").Select
    Range("F4").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A4").Select
    Cells.FormatConditions.Delete
    With ActiveCell.EntireRow
        .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
        With .FormatConditions(1)
            With .Borders(xlTop)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 2
            End With
            With .Borders(xlBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 8
            End With
        End With
        .FormatConditions(1).Interior.ColorIndex = 42
    End With
End Sub

John, thanks for your work on it. However, when using your suggested code, the row that became highlighted does not change from the point of insertion with subsequent mouseclicks, rather than changing to the row that contains the active cell; as the original code behaves. Thanks in advance for any additional takes on this.
Pete

Perhaps I didn't understand. Do you want the snippet in Post# 5 added too the Event Code in Post# 1?