2 codes funktionieren nicht miteinander warum

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Zelladresse = ActiveCell.Address(0, 0)
End Sub

Private Sub Worksheet_Activate()
If Not Zelladresse = "" Then
Application.Goto Range(Zelladresse)
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
z = ActiveCell.Row
s = ActiveCell.Column
If z = 1 Then GoTo FINI
If s > 15 Then GoTo FINI
Range(Cells(z, 1), Cells(z, s)).Interior.ColorIndex = 7
Cells(z, s).Interior.ColorIndex = 7
FINI:
End Sub