one way:

Me.TextBox1.Value = Format(Sheets("Blend Sheet").Range("ac7").Value, _
"0.00")


In article ,
"gregork" wrote:

I have the following code for passing some data on to a user form:

Private Sub UserForm_Initialize()
Me.TextBox1.Value = Sheets("Blend Sheet").Range("ac7").Value

End Sub

Works fine except for one thing - I am getting a number in my text box that
has 12 decimal places.
How do I format so the value returned only has 2 decimals?

Regards
gregork