I supposed that you made an error and the result is 35500.
Note that the UserForm1 must have the ShowModal property as False.
The following code should be in the Sheet1 code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.txtCalc.Text = ActiveSheet.Cells(1, 1).Text
UserForm1.txtAmount.Text = ActiveSheet.Cells(2, 1).Value
UserForm1.txtResult.Text = ActiveSheet.Cells(1, 1) -
ActiveSheet.Cells(2, 1)
End Sub


--
raypayette


------------------------------------------------------------------------
raypayette's Profile: http://www.excelforum.com/member.php...o&userid=29569
View this thread: http://www.excelforum.com/showthread...hreadid=567817