Mike it did'nt work but I tried the following code:

Private Sub TextBox1_Enter()
TextBox2.Text = (TextBox1.Text - Range("J5").Value) * 28
End Sub
That seems to work. Inserting a figure in textbox1 then by selecting
textbox2 the value changes. That is workable but I was after, as you entered
a value in textbox1....textbox2 changes without having to select textbox2.

--
Tdp


"Mike H" wrote:

Hi,

I'm confused but this may point you in the correct direction

Private Sub TextBox1_Change()
TextBox2.Text = (TextBox1.Text - Range("J5").Value) * 28
End Sub

Mike

"Tdp" wrote:

Thanks very much,
What I am trying to do is by inserting a value in textbox1, it runs the code
and places the result in textbox2.
Textbox1 is linked to cell sheet1 "A1" and textbox2 is linked to Sheet1 cell
"A2"
I'v tried using formula, but every time I enter a value in textbox1, it
clears the formula in cell "A2"
--
Tdp


"David Biddulph" wrote:

I'll let someone else answer the VB question, but as a formula you don't
need the SUM() function.
=(1013-J5)*28 will do.
--
David Biddulph

"Tdp" wrote in message
...
How You put the following as a vb code:

=SUM(1013-J5)*28


--
Tdp