编译时提示不能修改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