Good afternoon Sepia
For easier change every time Uncle Gordon gets his briefcase out (oh no, it's Alistair Darling now isn't it) I would use a UDF. Just change the parameters in the UDF and all formulae would change with them. For the attached code, use the formulae :
=UKTax(A1) or =UKTax(40000)
Function UKTax(Amount As Long)
Dim TaxAmount As Long
TaxAmount = 0
If Amount <= 2230 Then
TaxAmount = Amount * 0.1
Else
TaxAmount = 2230 * 0.1
End If
If Amount > 2230 And Amount <= 34600 Then
TaxAmount = TaxAmount + (Amount - 2231) * 0.22
Else
TaxAmount = TaxAmount + (34600 - 2231) * 0.22
End If
If Amount > 34600 Then
TaxAmount = TaxAmount + (Amount - 34600) * 0.4
End If
UKTax = TaxAmount
End Function
HTH
DominicB
Bookmarks