Tab Changes Relating To A Cell

I've done some tab changes relating to a cell. HOWEVER: I find that once I've done the input, no amount of changing the data in the (proper) cell or recalculating!

First go-round:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Address "L6" Then Exit Sub
Sheets(Sh.Name).Name = [L6].Value
End Sub

Second go-round:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(False, False) "F6" Then Exit Sub
ActiveSheet.Name = Format(Range("F6").Value, "mm-dd-yyyy")
End Sub

and last but not least:
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
On Error Resume Next
Sh.Name = Format(Range("L6").Value, "mm-dd-yyyy")
End Sub

There are 53 sheets in the file.