Merging two worksheet selections together

[CalumJames]

Hi al;,

Could some one assist me with this; I've tried merging both of these togethers but I'm not sure what it is I'm missing but it's not going to plan.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then MsgBox Target.Value, vbInformation, Target.Address(False, False)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then MsgBox Target.Value, vbYesNoCancel = vbInformation, "Project Progress"
End If
If Target.Column = 11 Then
If Target = "completed" Then
Application.EnableEvents = False
nxtRow = Sheets("Completed Major Tab").Range("I" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy _
Destination:=Sheets("Completed Major Tab").Range("A" & nxtRow)
Target.EntireRow.Delete
End If
If Target = "On Hold" Then
Application.EnableEvents = False
nxtRow = Sheets("IA Register").Range("I" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy _
Destination:=Sheets("IA Register").Range("A" & nxtRow)
Target.EntireRow.Delete
End If
Application.EnableEvents = True
End If
End Sub


Thanks in advance