Conditional Formatting VBA Font Type

[mdonovan890]

if Column C contains "QC SDMA Feline" I would like the font type of Column B to change from Calibri to another font type such as Arial Black. I am thinking I would need some sort of VBA to accomplish this? I am using Excel 2016 and relatively new to using VBA.

 

[healey21]

You don't need to use VBA, select the column range in Coilumn C use the Home and Conditional formatting and select Highlight Rules (First choice) and Contains Type in what you want it to look for and format accordingly.

 

[RoryA]

You do need VBA because you can't change font name using conditional formatting. Assuming column C is a manual entry and not a formula, you could use a change event:

Private sub worksheet_change(byval target as Range)
dim cell as range
if not intersect(target, Range("C:C")) is nothing then
for each cell in intersect(target, Range("C:C")).cells
if instr(1, cell.value, "QC SDMA Feline", vbtextcompare) <> 0 then
cell.font.name = "Arial Black"
Else
cell.font.name = "Calibri"
End If
next cell
end if
end sub

Note that this is air code so may not be entirely accurate!

To enter the code, right click the worksheet tab, choose View Code and then paste that in.