If the value in B9 is already formatted nicely:
Me.TextBox1.Value = Activesheet.Range("B9").Text

If it isn't formatted nicely, then something like:
Me.TextBox1.Value = format(Activesheet.Range("B9").Value,"£#,##0.00")



Woodi2 wrote:

What code do i need to cahnge the value in the code below to 2 decimal places
and starting with a £ sign

Sheets("RENTAL COSTS").Select
Me.TextBox1.Value = Range("B9").Value

--

Dave Peterson