Change Target To Full Text Based On Letter

how to allow both these codes to work on say sheet 1. I can get one to work just fine. So, any tips on how to get them both to work on the same sheet would be great.

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel. Range)
With Worksheets("Sheet1")
If Not Application.Intersect(Target, .Range("n1:n200")) Is Nothing Then
If Target = "S" Or Target = "s" Then Target = "Submitted"
If Target = "A" Or Target = "a" Then Target = "Approved"
If Target = "I" Or Target = "i" Then Target = "Investgating"
Else
End If
End With
End Sub

and this,.............