0
0000_AAAA_0000
Hi and Many Thanks!
Sub Country()
Dim Drpdwn As DropDown 'DropDown
Set Drpdwn = ActiveSheet.DropDowns("CBox1")
With Drpdwn
.RemoveAllItems 'Para Borrar entradas previas
.AddItem "FRANCE"
.AddItem "ITALY"
.AddItem "SPAIN"
.ListIndex = 1
End With
'IS IT POSIBLE TO CHANGE THE FORMATTING
'THE SAME WAY WE DO FOR
'ActiveCell.Font.Size = 25
'ActiveCell.Font.Bold = True
'BUT FOR THE ITEMS IN THIS COMBOBOX??????????
End Sub
PS: by the way, MANY THANKS, Tom Ogilvy!!!!!!!!!!!!
Sub Country()
Dim Drpdwn As DropDown 'DropDown
Set Drpdwn = ActiveSheet.DropDowns("CBox1")
With Drpdwn
.RemoveAllItems 'Para Borrar entradas previas
.AddItem "FRANCE"
.AddItem "ITALY"
.AddItem "SPAIN"
.ListIndex = 1
End With
'IS IT POSIBLE TO CHANGE THE FORMATTING
'THE SAME WAY WE DO FOR
'ActiveCell.Font.Size = 25
'ActiveCell.Font.Bold = True
'BUT FOR THE ITEMS IN THIS COMBOBOX??????????
End Sub
PS: by the way, MANY THANKS, Tom Ogilvy!!!!!!!!!!!!