Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim H1 As Single, H2 As Single
Target.WrapText = False
H1 = Target.Height
Target.WrapText = True
Target.Rows.AutoFit
H2 = Target.Height
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With TextBox1
.Visible = True
.AutoSize = True
.WordWrap = False
.Font.Size = Target.Font.Size
.Text = Target.Text
End With
MsgBox TextBox1.Width > Target.Width
End Sub