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

**xtinct2** · 09-09-2018, 04:59 PM

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

**shg** · 09-09-2018, 05:06 PM

You can't have two procedures with the same name in the same module.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Me.Name <> "Project Pricing Summary" Then Me.Name = "Project Pricing Summary"

  If Target.Address = "$J$7" Then
    If UserForm_ManualRevAdj.Visible = False Then UserForm_ManualRevAdj.Show
  End If
End Sub