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

Not a dropdown from the Forms toolbar, but you can change the font (for all the
options) if you used a combobox from the control toolbox toolbar.



0000_AAAA_0000 wrote:

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_0000
------------------------------------------------------------------------
0000_AAAA_0000's Profile: http://www.excelforum.com/member.php...o&userid=12480
View this thread: http://www.excelforum.com/showthread...hreadid=274081

--

Dave Peterson