Value from UserForm to Worksheet - Accounting format - (How to?)

[Paul_Hossler]

This seems to work -- look at the attachment

Capture.JPG

Private Sub CommandButton1_Click()

    ActiveSheet.Range("A1").Value = Me.TextBox1.Value
    ActiveSheet.Range("A1").NumberFormat = "_($* #,##0.00_);($* #,##0.00);_($* 0.00_);_(@_)"


    ActiveSheet.Range("A2").Value = -1 * Me.TextBox1.Value
    ActiveSheet.Range("A2").NumberFormat = "_($* #,##0.00_);($* #,##0.00);_($* 0.00_);_(@_)"


    ActiveSheet.Range("A3").Value = 0
    ActiveSheet.Range("A3").NumberFormat = "_($* #,##0.00_);($* #,##0.00);_($* 0.00_);_(@_)"

    Me.Hide
    Unload Me
End Sub