looks like your are restricting any sheetname change to occur
only immediately after changing cell N5, or am I missing something here...

"Barry Wright" wrote in message
...
Got stumped ont hsi one :-( Trying to rename a sheet to what ever
value is in a certain cell. This returns an error, and the help files
did not help much,,,,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim cRow As Long, cCol As Long
cRow = Target.Row
cCol = Target.Column
If (cCol = 14 And cRow = 5) Then ActiveSheet.Name = Target.Value

End Sub