Right click sheet tabview codeinsert this. If you want it to apply to ALL
sheets, place in the This_Workbook module instead

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < Range("a1").Address Then Exit Sub
ActiveSheet.Name = Target

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"TJ" wrote in message
...
Hi,

I would like to change/rename the sheet tab to automatically update to
cell
in that sheet.

The tab is called sheet1, as soon as I go into sheet1 and update cell A1
to
WIP, the name of that sheet 1 should correspond to WIP.

Kindly assist

thanks
TJ