右键工作表标签，选择"查看代码"，然后贴入下面事件代码：
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveWorkbook.Names.Add Name:=Target.Value, RefersTo:="=Sheet1!$B$1:$H$1" End IfEnd Sub
