I have created a userform containing several textboxes linked to cells on
sheet1 of a workbook. The cells on the worksheet are formatted for Currency
,specifically £ to two decimal places. My problem is when I change the
values on the worksheet the prices appear on the userform as a number, for
example £54.00 on the worksheet appears as 54 in the linked textbox so my
question is, is there a way to set a currency format in a text box by using
code as I can't find a way by using the textbox properties?
Here's hoping some knowlegable person can head me in the right
direction. Thanks in advance.
Happy New Year to all
Jim Brooks

Jim,

Try either

Textbox1.Text =
Format(Worksheets("Sheet1").Range("A1").Value,"£#, ##0.00")

or

Textbox1.Text = Worksheets("Sheet1").Range("A1").Text

if the cell is already formatted.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"JIMBROOKS" wrote in message news:41d6beb7.0@entanet...
I have created a userform containing several textboxes linked to cells on
sheet1 of a workbook. The cells on the worksheet are formatted for
Currency
,specifically £ to two decimal places. My problem is when I change the
values on the worksheet the prices appear on the userform as a number, for
example £54.00 on the worksheet appears as 54 in the linked textbox so my
question is, is there a way to set a currency format in a text box by
using
code as I can't find a way by using the textbox properties?
Here's hoping some knowlegable person can head me in the right
direction. Thanks in advance.
Happy New Year to all
Jim Brooks