编译时提示不能修改name的只读属性,求助怎么修改程序
Sub lau()Dim newlb As Label
Dim hdbm As String
On Error Resume Next
hdbm = ActiveSheet.Name
Sheets(hdbm).Labels("zidongsx").Delete
Set newlb = Sheets(hdbm).Labels.Add(388.5, 2.5, 42.5, 15.3)
With newlb
.Name = "zidongsx"
.Caption = ""
.OnAction = "zidongsx"
End With
End Sub