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!!!!!!!!!!!!

--
0000_AAAA_000
-----------------------------------------------------------------------
0000_AAAA_0000's Profile: http://www.excelforum.com/member.php...fo&userid=1248
View this thread: http://www.excelforum.com/showthread.php?threadid=27408