Uma caixa de mensagem com botão OK não serviria?
Você teria colunas pré-definidas que exibem texto extenso?

textbox1.Value=ActiveCell.Value

Se uma caixa de diálogo atender às suas necessidades, eu sugeriria este código. Coloque o código no evento "Worksheet_SelectionChange" da planilha e altere para a coluna que possui texto extenso demais para caber na célula.

A vantagem da caixa de diálogo é que ela se auto-dimensiona de acordo com o tamanho do texto.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const cCOLUNA As Integer = 1

    If ActiveCell.Column = cCOLUNA And Len(Trim(ActiveCell)) > 0 Then MsgBox ActiveCell.Value, vbInformation, "Texto expandido"
    
End Sub

Nelson S

Sua solução me resolveria o problema, mas a dinâmica é apenas exibir o texto quando a célula for ativada, logo, não é necessário o botão "OK", bastando exibir de acordo com a célula ativa.

Como eliminar o botão ?

Muitoobrigado, era assim que imaginava. Já fazia bastante tempo que buscava essa solução, vai ser muito útil.

Obrigado