Hi All

I have the following snippet of code I need assistance with. I am trying to get ws.Range("F9") to display R652000.00
and have the availability of calculating commissions from this value without faulting as it reads value as string.
Dim Total As Long
Total = Application.WorksheetFunction.VLookup("TOTAL", ss.Range("A6:E5000"), 5, False)
'Assuming Total.value = 652000.00
UserForm1.TextBox1 = Format(Total, "R#,## 0.00")
ws.Range("F9") = UserForm1.TextBox1.Value
This formula renders an incorrect answer after the sheet is populated
Formula: copy to clipboard 
=IF(F9="","",IF(F9>E3,(F9*0.25/100),0))

Any help please.

I had a cross post which I marked as solved in Formula section thinking it was the formula....
https://www.excelforum.com/excel-for...ml#post4665855