I have a Textbox on a Userform that I want its text to be in an Accounting
Format when data is entered into it. This is an example of what I am trying
to do.

Private Sub Textbox1_AfterUpdate()
Textbox1.Value = Format(Textbox1, Accounting)
End Sub

I also retrieve cell values (that are formated as Accounting) into Textbox1
with my Worksheet Double Click Event. But it does not display the dollar
sign, why and how can I do this?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)

'autofills the user form with the data from global schedule worksheet
Cancel = True

With frmItemSummary
.Textbox1 = Cells(Target.Row, "A")
End With

End Sub
--
Cheers,
Ryan