Нужна помощь по смени имени листа

[Lis000iq]

Есть файл в ячейки B1 записываеться шифр например БВ-69, можно сделать так что при записи шифра в ячейку B1 автоматически менялося бы на заголовок листа как в файле шифр БВ-69 названия листа тоже
БВ-69 (при чем при создании копии листа а потом изменения шифра, на нем тоже бы менялось название листа)

[motorway]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Target.Address = "$B$1") Then ActiveSheet.Name = ActiveSheet.Range("B1").Value
End Sub

p.s. Рекомендую писать более грамотно, а то сначала было не очень понятно, что там меняться должно (в одном предложении 5 ошибок)

[Lis000iq]

Большое спасибо! А код писать на лист или "Эта книга"

[motorway]

Как видно, "Эта книга" (Workbook)

[Lis000iq]

А еще вопрос, а можно чтобы в название листа отображалась еще
"через пробел" дата приемки, т.е. ячейка H1

[motorway]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Target.Address = "$B$1" Or Target.Address = "$H$1") Then ActiveSheet.Name = ActiveSheet.Range("B1").Value & " " & ActiveSheet.Range("H1").Value
End Sub

[Lis000iq]

еще раз СПАСИБО!!!