Hello Funkymonk,

Place this code inyour TextBox's AfterUpdate event module. Change the
range and worksheet names to match your workbook.



Code:
--------------------
Private Sub TextBox1_AfterUpdate()

Worksheets(\"Sheet1\").Range(\"A1\").Value = Format(TextBox1.Text, \"Currency\")

End Sub
--------------------


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=374123