mehrdeutiger name worksheet_change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim DateiName As String
If Not Intersect(Target, Range("G23,G26")) Is Nothing Then
DateiName = Range("C30").Value
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "c:\Datenblätter FK\" & DateiName
.FilterIndex = 2
If .Show = -1 Then
.Execute
Else
MsgBox "Abgebrochen"
End If
End With
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address  "$C$23" Then Exit Sub
Range("H16").Value = Date
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address  "$F$23" Then Exit Sub
Range("I13").Value = Now + 1/24
End Sub