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