Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
if isnumeric(Textbox1.Value) then
Textbox1.Value = Format(Textbox1.Value,"$ #,##0.00")
End if
End Sub

--
Regards,
Tom Ogilvy

"Jeff" wrote in message
...
But this is a text box in a VBA form - not a cell on the
worksheet. Formatting the column doesn't work on a form
(unless I'm missing something in your reply...)

Thanks - Jeff


-----Original Message-----
Hi,
Try formating the column for $ and Choose 2 decimals.
Saziz


---
Message posted from http://www.ExcelForum.com/

.