Boa tarde gust

Movi teu tópico para VBA & Macros que é o assunto da tua dúvida.

[]s

Mais uma solução que eu mesmo achei hahahah (Já to querendo um carimbo de moderador hahahah)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.ScreenUpdating = False

Dim xTop, xLeft As Integer

CaixaTexto.Font.Size = 11

xTop = ActiveCell.Offset(1, 0).Top
xLeft = ActiveCell.Offset(1, 0).Left
 
    If Len(ActiveCell) > 25 Then
       CaixaTexto.Left = xLeft
       CaixaTexto.Top = xTop
       CaixaTexto.Visible = True
       CaixaTexto.Text = ActiveCell.Value
    Else
        CaixaTexto.Visible = False
    End If
Application.ScreenUpdating = True
 
End Sub