Size a text box based on length

[Guest]

I need to automatically adjust the height of the row attached to text box,
based on the length or amount of data in the text box. Any ideas?

 

[NickHK]

Not sure what you mean, but does this work ?

Range("A1").Rows.AutoFit

NickHK

 

[Guest]

AutoFit will size to the max cell size, but does not include a text box that
is bound to a cell within the range. Thanks.

 

[NickHK]

What do you mean by "adjust the height of the row attached to text box" then
?
If you mean adjust to the height of THAT cell, then maybe:

Private Sub CommandButton1_Click()
Dim DestCell As Range
Dim TestCell As Range

'Cell linked to Textbox
Set DestCell = Range("A1")

'Where it will not interfere with current column widths/row heights
Set TestCell = Range("U30")

With TestCell
.ColumnWidth = DestCell.ColumnWidth
.Value = DestCell.Value
.Rows.AutoFit
DestCell.RowHeight = .RowHeight
End With

End Sub

NickHL