You can not use the criteria the way you have. it would have to be...

If Range("b8").Value = 0.05 and Range("b8").Value<= 0.09 Then
Range("b10").Value = 0.1

But you will still run into an issue with vlaues like .095 whch will not be
captured. Do your code in the opposite order and use elseif statements should
work... Something like...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Parts
End Sub

Public Sub Parts()
If Range("b8").Value = 0.45 Then
Range("b10").Value = 0.21
elseIf Range("b8").Value = 0.35 Then
Range("b10").Value = 0.2
elseIf Range("b8").Value = 0.3 Then
Range("b10").Value = 0.19
elseIf Range("b8").Value = 0.25 Then
Range("b10").Value = 0.18
elseIf Range("b8").Value = 0.2 Then
Range("b10").Value = 0.17
elseIf Range("b8").Value = 0.15 Then
Range("b10").Value = 0.15
elseIf Range("b8").Value = 0.1 Then
Range("b10").Value = 0.13
elseIf Range("b8").Value = 0.05 Then
Range("b10").Value = 0.1
else
Range("b10").Value = 0.05
endif
End Sub


--
HTH...

Jim Thomlinson


"jsc3489" wrote:

The Value of b10 is always 0.20 no matter what I do. I'm so close I can taste
it, I think.
I need commission percentage (b10) to be chosen by profit percentage (b8)

This is what I have:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Parts
End Sub

Public Sub Parts()
If Range("b8").Value <= 0.04 Then Range("b10").Value = 0.05
If Range("b8").Value = 0.05 <= 0.09 Then Range("b10").Value = 0.1
If Range("b8").Value = 0.1 <= 0.14 Then Range("b10").Value = 0.13
If Range("b8").Value = 0.015 <= 0.19 Then Range("b10").Value = 0.15
If Range("b8").Value = 0.2 <= 0.24 Then Range("b10").Value = 0.17
If Range("b8").Value = 0.25 <= 0.29 Then Range("b10").Value = 0.18
If Range("b8").Value = 0.3 <= 0.34 Then Range("b10").Value = 0.19
If Range("b8").Value = 0.35 <= 0.44 Then Range("b10").Value = 0.2
If Range("b8").Value = 0.45 Then Range("b10").Value = 0.21
End Sub


--
I reject your reality and substitute my own.

Promote hydrogen - one of the best "clean" fuels there are!