Target Address ?????

Hi zusammen,
habe eine Frage bei der ich auf dem Schlauch stehe, ich habe eine große Arbeitsmappe mit 40 Tabellenblättern, die Namen der Blätter sollen sich aus der Zelle "F4" generieren. Folgenden Code nutze ich in "DieseArbeitsmappe", irgendetwas habe ich aber falsch gemacht, denn der Name im Tabellenblatt ändert sich nicht.
Vielleicht kann mir jemand helfen.
Danke

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address(6, 4) = "f4" And Target.Value <> "" Then
If Not SheetExists(Target.Value) Then
Sh.Name = Target.Value
Else
Application.Undo
End If
End If
End Sub