Excel vba shape object, button, worksheet help

Hello All,

I sincerely would like some help with these Excel vba problem am stuck with. I already have some code written which i am trying to manipulate to achieve what i wanted, but certainly not working.

Here is my code:

Please Login or Register  to view this content.

I have three sub procedures each for lamb, apple and man. And I have three buttons on the worksheet which i assigned to each procedure

Clicking on individual button should be independent of each other.
For example clicking on lamb button should do the following
-Ask how many lamb?
-type in number of lambs
-corresponding number of lambs -should appear cascaded on each other with textnumber of lamb enter with assigned colour code and shape
-and the shape should be able to move around the sheet to any location

The same applys to other two, with affecting each other (I have problem with this I guess because they are all on the same activesheet)

I managed to do the counting (L1, L2, ....) on the cell but should be with the individual shape type which correspond to the three objects


Thanks in anticipation for you help.