Ashish Sir,
Thank you.
This is working. You have solved my big problem.
With Regards,
*Suyog*
On Wednesday, 3 July 2013 20:23:41 UTC+5:30, ashish wrote:
>
> try this macro see if it helps
>
> Sub add_comboboxes()
>
> Dim rng As Range
> Dim cl As Range
> Dim shp As Shape
>
> For Each shp In A
try this macro see if it helps
Sub add_comboboxes()
Dim rng As Range
Dim cl As Range
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoFormControl Then shp.Delete
Next
Set rng = Range("b3:b10")
For Each cl In rng
ActiveSheet.DropDowns.Add(cl.Left,
