Align TextBox Within A Range

Thank you for the Active X textBox! It works, but only for height. The width of the textbox is shrinked automatically. This is a main reason I prefer to use normal TextBox, because width remain static for normal textbox.

Try something along these lines:

Code:

---

Private Sub TextBox1_GotFocus()
With TextBox1
  .AutoSize = True
  .Left = Range("B1").Left
  .Top = Range("A356").Top
  .Width = 590
  .EnterKeyBehavior = True
End With
End Sub

Private Sub TextBox1_LostFocus()
With TextBox1
  .EnterKeyBehavior = False
  .Top = Range("A356").Top
  .Left = Range("B1").Left
  .Width = 590
  .AutoSize = False
  ht = .Height
  Debug.Print ht
  .Height = Application.Max(171, ht)
  Range("A356:A375").RowHeight = (.Height / 20)    ' + 0.5
  .Height = Range("A356:A375").Height
  Do While .Height < ht
    Range("A356:A375").RowHeight = Range("A356").RowHeight + 0.25
    .Height = Range("A356:A375").Height
  Loop
End With
End Sub

---

Thanks a lot for helping me! It is working really well.

When I close the document after entering something in the active x textbox, a popup comes with the message...
"parts of your document may include personal information that can't be removed by document inspector"

It can be disabled in Trust Center > Trust Center Settings > Privacy Options, but my question is - if I share this file to someone, is this pop-up comes every time they make any change to the textbox?? This may be annoying for them.

The file will retain the setting you give it in Trust Centre (as long as you save it), so that message should no longer pop up.

Okay...thank you so much!!