I am pretty sure that this code can replace all the code that you posted...

tr = InputBox("TOTAL BOXES IN THIS ORDERB.")
rn = InputBox("THIS IS BOX NUMBER?")
bn = 1 + tr - rn

--
Rick (MVP - Excel)


"Little Penny" wrote in message
...
I have a code the based on the user input of tr and rn will determine
the value of bn.
I tried to structure it as you see below but it does not pass bn on to
when it needs to be used.

Any help would be appreciated.



tr, bn and rn are declard as long


tr = InputBox("TOTAL BOXES IN THIS ORDERB.")
rn = InputBox("THIS IS BOX NUMBER?")


If tr = 4 Then

ElseIf rn = 4 Then bn = 1
ElseIf rn = 3 Then bn = 2
ElseIf rn = 2 Then bn = 3
ElseIf rn = 1 Then bn = 4



End If


If tr = 3 Then


ElseIf rn = 3 Then bn = 1
ElseIf rn = 2 Then bn = 2
ElseIf rn = 1 Then bn = 3



End If




If tr = 2 Then


ElseIf rn = 2 Then bn = 1
ElseIf rn = 1 Then bn = 2



End If




Thanks



Little Penny