Try this demo workbook
It contains this code
Option Explicit
Sub DropDownFontValidationBold(BoldFont As Boolean)
Dim LastRow As Long
Dim i As Integer
Dim ListBold As String, ListNormal As String, DDList As String
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
If Range("A" & i).Font.Bold = True Then
If ListBold = "" Then
ListBold = Range("A" & i)
Else
ListBold = ListBold & "," & Range("A" & i)
End If
Else
If ListNormal = "" Then
ListNormal = Range("A" & i)
Else
ListNormal = ListNormal & "," & Range("A" & i)
End If
End If
Next
If BoldFont Then
DDList = ListBold
Else
DDList = ListNormal
End If
With Range("C1:C" & LastRow).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=DDList
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Sub DropDownFontBold()
DropDownFontValidationBold True
End Sub
Sub DropDownFontNormal()
DropDownFontValidationBold False
End Sub
Toggle the macros "DropDownFontBold" & "DropDownFontNormal"
Check tthe result in Column C
Add to or subtract from column A as you wish change font as needs be.
Hope this helps.
If you need any further information, please feel free to ask further
However
If this takes care of your needs, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED. It helps everybody!
Also
If you are satisfied by any members response to your problem please consider using the scales icon top right of thier post to show your appreciation.
Bookmarks