title: Macro to resize textboxes to fit exactly on the cell its sitting on
body: <p>I am using Excel 2013 and have created some macros and am currently embedding them into textboxes. How would I make a macro that takes selected textboxes and centers them and sizes them to fit exactly on the cell that they are sitting on.</p>
  
  <pre><code>Sub TextBox2Cell()
      With ActiveCell
          ActiveSheet.Shapes.AddTextbox _
            msoTextOrientationHorizontal, .Left, _
            .Top, .Width, .Height
      End With
  End Sub
  </code></pre>
  
  <p>I have this code to create newtext boxes but need to do this with already created textboxes.</p>