title: rename from control button name(name property) in excel vba
body: <p>I have used a vba code to add a new row with from control button in column A.</p>
  
  <p>the code is working fine but has a small issue. </p>
  
  <p>I am trying to change button name property during copy but I dont know how to do it ?</p>
  
  <p>For example, I am copying a button with name "validate", when it will be copied to next row I want to change the Name property (not the button text) of the button to "validate1".</p>
  
  <p>can you please let me know how to do it ?</p>
  
  <pre><code>Dim Lr As Integer
  Dim newLr As Integer
  Dim lim, rng, sht, btn As String
  
  Lr = Range("B" &amp; Rows.Count).End(xlUp).Row 'Searching last row in column A
  newLr = Lr + 1
  lim = "B" &amp; newLr &amp; ":" + "D" &amp; newLr
  rng = "A" &amp; newLr
  Rows(Lr).Copy
  Rows(newLr).Insert
  'Range(lim).ClearContents
  sht = ActiveSheet.Name
  btn = "validate" &amp; newLr
      Application.ScreenUpdating = False
      Sheets(sht).Shapes("validate").Copy
      Sheets(sht).Activate
      Sheets(sht).Range(rng).Select
      Sheets(sht).Paste
      Sheets(sht).Shapes("validate").Select
      Selection.Characters.Text = btn
      Application.ScreenUpdating = True
  </code></pre>
  
  <p><strong>Image link:</strong> <a href="https://ibb.co/c0rFfv" rel="nofollow noreferrer">https://ibb.co/c0rFfv</a></p>