How to join these (specific) two sub routines (local to sheet)?

Hi --

I'm trying to run 2 codes that run on a specific sheet.

Each one runs on their own, but whenever I to have both of them, i get an error.
(Code below)

Any help?

Thanks!

Option Explicit

Private Sub worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$J$7" Then

    If UserForm_ManualRevAdj.Visible = False Then

        UserForm_ManualRevAdj.Show

    End If

End If

End Sub

------

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)

'Prevents Users from changing sheet names

    If ActiveSheet.Name <> "Project Pricing Summary" Then
    ActiveSheet.Name = "Project Pricing Summary"

End If
End Sub