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