ActiveWorkbook.ActiveSheet.Name = Range("B1")


Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = ActiveWorkbook.ActiveSheet.Range("B1")
On Error Resume Next
If Not Application.Intersect(KeyCells, Target) Is Nothing Then
ActiveWorkbook.ActiveSheet.Name = Range("B1") & ActiveWorkbook.Sheets(Sheets.Count)
End Sub
End If
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("ICE_FirstN")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub