strange ribbon dropdown problem

i made two workbooks VerlofkalenderAcod and KalenderAcodRibbon13
In the firstworkbook everything works fine.

To test i select a day on calandarthe worksheet 2018 Than make a choose in the combox.
depending on the selection on the selected day here come a shape rectangle for a full day of and a triangle for a half day of.
When you select a rectangle or a triangle you get a massage that you select a shape.

But a friend told me that a silder and combox on the worksheet are the old method.
He told me also that the new methode that now is used is make a new tab on the ribbon. And set a combobox for the slider and a dropdown for the Combox.

When the use make a selection of a day he whant a day of and go to then new tab dropdown and select the holiday code he want to use no problem. He get the wright shape.
Make he alose a selection that have a shape in it he get a messge that the selection contain a holiday code.
So far no problem.

The problem is when he select a shape than it goes wrong and i dont now why?

What i did in the workbook KalenderAcodRibbon13 is make a copy of all the modules out VerlofkalenderAcod and copy the code that is under the worksheet Verlofkalender Sjabloon or 2018
To the moduleRibbon under the folllowing part
Callback for dropdown onAction
Sub DDonAction ...

afther the declaration with all the lines that begin with dim
You find the follwing code
Set RngVerlofBereik=selection
I'v get the following message
Foult 13
the types do not match

Why ? Wy it works in VerlofkalenderAcod and not in KalenderAcodRibbon13

Manny thanks for your help.