The code works fine for me. What exactly is the error message
you get?


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"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