Try this:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Address = "$A$1" Then
If Target.Value < "" Then
Me.Name = Target.Value
End If
End If
End Sub

Where "$A$1" needs to be changed to the cell that contains the tabname.
You will find, theat when you refresh, the names do not refresh
immediately. However, select A1 in groupmode, click CTRL+C and CTRL+V
- given that every sheet has an individual name, you should be finr