Actualización automática texbox

hola, Jorge !

pego el codigo, pero no hace nada cuando modifico los datos..
no se si sea importante mencionarte que la hoja "tablas", en h, i, j, y k tiene formulas que extraen valores de otras hojas ...
en la hoja tablas tengo =suma(hoja1!d7:d65536) y asi sucesivamente...

pues, SI ... ese es un *ligero* detalle que no tenia yo contemplado en mis suposiciones iniciales :))

op1: mueve el codigo del evento '_change' -> al evento '_calculate' de la hoja tablas
ELIMINANDO del codigo la linea que dice: -> If Intersect(Target, Range("h2:k2")) Is Nothing Then Exit Sub
[nota: es probable que resulte en codigo *extenuante* por repetitivo] -?-

op2: [probablemente] seria menos exhaustivo si se monitorean las celdas *precedentes* que dan origen a *las formulas*
[aqui seria necesario que comentes *las formulas* y/o el proposito de los calculos del modelo] -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta anterior __

... expongo el codigo para tus comentarios ...
... el calculo lo realizo desde el codigo, el texbox esta en la... hoja1
los valores que cargan las variables de calculo estan en la hoja "tablas" en la fila 2 ...

copia/pega las siguientes lineas -> en el modulo de codigo de la hoja "tablas"...
[y no pongas nada en el evento '_dblclick' del textbox en la hoja1]...

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("h2:k2")) Is Nothing Then Exit Sub
Dim Saldo As Long: Saldo = Evaluate("k2-sum(h2:j2)")
With Worksheets("hoja1").txbCeldaSaldo
.Text = Format(Saldo, "#,##0")
.ForeColor = IIf(Saldo > 0, vbBlue, vbRed)
End With
End Sub