Hope some fresh eyes might help! :-)

With this line

Set endCell = ActiveSheet.Range("B15:B19").Find(0, LookIn:=xlValues)

I try to find the value 0 in the range of B15 to B19. I have tried to
enter 0 in both all and either of the 5 cells, but no matter what it
returns Nothing for the varialble endCell.

The range B15:B19 is formatted as number with 2 digits.

Regards
Snedker