Clear All Dropdown Listindex

Hi,

I want to clear all contents of cells after completing macro for creating months. Range that needs to be cleared also contains dropdown shapes, which have code for inserting their values into cells under.

I want to set all dropdown Listindex-es to blank (-1), so that all cells in desired range would really be cleared.

Tried with this, but not working :

dim dd as dropdown
dim lngcounter3 as Long

set dd= ActiveSheet.Dropdowns

For lngcounter = 1 to 13
dd.Listindex = -1
next lngcounter

What am I doing wrong ?

See attached sample, and look at Clear_cells and Dropdown_Change macros !

Thanks for help in advance !