You could control the format explicitly, like:

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

or you could pick up what's displayed in the worksheet:

Me.TextBox1.Value = Sheets("Blend Sheet").Range("ac7").Text



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

--

Dave Peterson