ColumA ColumB

i have problem in this code, the integers in columB do not appea
correctly
i tried to use this code to first check if A1*.005 is between 0---.
then put
b.value =

Sub Tax4SalesTax()
Dim c As Range
Dim b As Range

For Each b In Range("B1:B5")
For Each c In Range("A1:A5")
Select Case c * 0.005
Case 0 To 0.5
b.Value = 0.5
Case 0.5 To 1
b.Value = 1
Case 1 To 1.5
b.Value = 1.5
Case 1.5 To 2
b.Value = 2
Case 2 To 2.5
b.Value = 2.5
Case 2.5 To 3
b.Value = 3
End Select
Next
Next
End Sub

i appreciate any hel

--
helmekk

-----------------------------------------------------------------------
helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693
View this thread: http://www.excelforum.com/showthread.php?threadid=26939