R
RyanH
I need to add text from a Userform Textbox to a worksheet. Sometimes the
textbox may conatin a few sentences. Unfortunately, the text needs to span
across 3 Columns. I would like my code to put the textbox text into the
merged cells, wrap the text to fit, and automatically adjust the row height.
Is it possible to do this or is there an easier way? The text has to be
contained between Col.C and Col.E.
Sub AutoFitText()
With ActiveCell 'ActiveCell = Range("B10") in this case
'.....I have additional code here
.Offset(30, 1).Value = " • Comments: " & tbxComments
With Range(.Offset(30, 1), .Offset(30, 3))
.Merge
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = True
.Rows.EntireRow.AutoFit
End With
'.....I have additional code here as well
End With
Thanks in Advance,
Ryan
textbox may conatin a few sentences. Unfortunately, the text needs to span
across 3 Columns. I would like my code to put the textbox text into the
merged cells, wrap the text to fit, and automatically adjust the row height.
Is it possible to do this or is there an easier way? The text has to be
contained between Col.C and Col.E.
Sub AutoFitText()
With ActiveCell 'ActiveCell = Range("B10") in this case
'.....I have additional code here
.Offset(30, 1).Value = " • Comments: " & tbxComments
With Range(.Offset(30, 1), .Offset(30, 3))
.Merge
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = True
.Rows.EntireRow.AutoFit
End With
'.....I have additional code here as well
End With
Thanks in Advance,
Ryan