Guys
Have used the code below to create two combo boxes on my sheet. However ... I cannot find a way to delete these prior to recreating ... data changes.
Can someone let me know how ... because of recreate I do not know there names.
thanks
Sub CreateDropDowns()
ActiveSheet.DropDowns.Add(1200, 20, 250, 22).Select
With Selection
.ListFillRange = "'Temp - Index'!$K$1:$K$8"
.LinkedCell = "'Temp - Index'!$K$12"
.DropDownLines = 8
.Display3DShading = True
.Caption = "Company Name : "
End With
ActiveSheet.DropDowns.Add(1200, 50, 250, 22).Select
With Selection
.ListFillRange = "'Temp - Index'!$L$1:$L$" & _
Worksheets("Temp - Index").Range("M1")
.LinkedCell = "'Temp - Index'!$K$14"
.DropDownLines = 8
.Display3DShading = True
.Caption = "Finance Type : "
.OnAction = "SelectionTaken"
End With
End Sub
Have used the code below to create two combo boxes on my sheet. However ... I cannot find a way to delete these prior to recreating ... data changes.
Can someone let me know how ... because of recreate I do not know there names.
thanks
Sub CreateDropDowns()
ActiveSheet.DropDowns.Add(1200, 20, 250, 22).Select
With Selection
.ListFillRange = "'Temp - Index'!$K$1:$K$8"
.LinkedCell = "'Temp - Index'!$K$12"
.DropDownLines = 8
.Display3DShading = True
.Caption = "Company Name : "
End With
ActiveSheet.DropDowns.Add(1200, 50, 250, 22).Select
With Selection
.ListFillRange = "'Temp - Index'!$L$1:$L$" & _
Worksheets("Temp - Index").Range("M1")
.LinkedCell = "'Temp - Index'!$K$14"
.DropDownLines = 8
.Display3DShading = True
.Caption = "Finance Type : "
.OnAction = "SelectionTaken"
End With
End Sub