help: I need to have an excel worksheet name = a cell in an existi

[Guest]

help: I need to have an excel worksheet name = a cell in an existing workbook.
the cell reference is a merged cell, and is a date

 

[Guest]

Dim dt as Date
dt = Worksheets("Sheet1").Range("B9").Value
Activesheet.Name = format(dt,"yyyymmdd")

 

[Guest]

Where and how do I place this?

Dim dt as Date
dt = Worksheets("Sheet1").Range("B9").Value
Activesheet.Name = format(dt,"yyyymmdd")