Help with combining two worksheet_change macros

Hello, I am trying to combine these two worksheet_change macros any help is appreciated.

Macro 1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("D11:D10")) Is Nothing Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Range("D11").Value & " " & Range("D10").Value & ""
    Exit Sub
Badname:
    MsgBox "Error Please Revise & Chr(13)" _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("D11").Activate
End Sub

Macro2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("5:5"), Target) Is Nothing Then Exit Sub
    Sheets(Target.Value).Activate
End Sub