On 28 Dec., 18:41, Jason V wrote:
I have the following code
Sub CalcPrice()

Dim TotalPrice As Currency
Set xls = Excel.Worksheets("ProjectDB")
Sheets("ProjectDB").Select

Col = 11
For row = 141 To 160
* * Price = xls.Cells(row, Col)
* * TotalPrice = TotalPrice + Price
Next row
QuoteForm.TBPricing.Value = TotalPrice
End Sub
I want the sum of these cell displayed as currency and not just a number
Please help. Thank You
--
Jason V

Hi Jason

QuoteForm.TBPricing.Value = FormatCurrency(TotalPrice)

Regards,

Per