Try this.

Me.TextBox1.Value = Format(Range("B9").Value, Chr(163) & "###,##0.00")



"Woodi2" wrote in message
...
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