Thank you! This works well. But I have another problem according to this.

Besides texts as wheels, trunk, etc. I also have checkboxes with an outcome with ones and zeros (checked and un-checked). But these ones and zeros don't have the same characteristics.

For example: checkbox for head lights on: checked --> 1, unchecked --> 0.
Horn on or off: checked --> 1, unchecked --> 0.

But both these 1's and 0's have different calculations. I hope you know what I mean.

So with the texts wheels trunk etc. this code works fine.
But if I say: 

ElseIf .Range("D" & i) = "1" Then
'Calculation A
Then he does this for all the ones. But it is possible that one 1 is not the other 1.

Does this makes any sense?

Regards,
Bart