Dropdown coloured and bold text

cobber1418 · Aug 24th 2020

Hi, my VBA code for dropdowns works fine except the text does not appear in the dropdown as coloured and bold as I would like. How can I make it coloured and bold, cheers.

Code

Range("F2:F" & Cells(Rows.count, 1).End(3).Row).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="='Dropdown Data'!$A$1:$A$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Display More

Dropdown reference cells code

Code

Range("A1").Value = " "
Range("A2").Value = "Agree"
Range("A3").Value = "Disagree 1"
Range("A4").Value = "Disagree 2"
Range("A5").Value = "Disagree 3"
Range("A6").Value = "Disagree 4"
Range("A7").Value = "Disagree 5"
Range("A8").Value = "Disagree 6"
Range("A9").Value = "Disagree 7"
Range("A10").Value = "Disagree 8"
Range("A11").Value = "Disagree 9"
Range("A12").Value = "Disagree 10"
'bold text
Range("A2:A12").Font.Bold = True
'font colour
Range("A2").Font.Color = vbGreen
Range("A3:A12").Font.Color = vbRed

Display More

**rory** · Aug 25th 2020

You can't, I'm afraid.

cobber1418 · Aug 25th 2020

Thanks Rory

Logit · Aug 25th 2020

Using the Data Validation dropdown ... as rory said ... you can't.

But, if you use a ComboBox ... you can !

https://www.contextures.com/xlDataVal10.html

cobber1418 · Aug 25th 2020

Thanks Logit

Logit · Aug 25th 2020

You are welcome.

**rory** · Aug 25th 2020

Note that you still can't set different formats per item, if that's what you are trying to do.

Also, activex controls on worksheets are best avoided if possible.

Dropdown coloured and bold text

Share

Tags