Formatting cells with variable values

[HaworthEstates]

Hello there

I would like to find a VBA to format the cells ($A:$B), based on the values in $C and $D, which are variable, with the result in columns $E and $F, as per the below sample:

Source	Delays	Desired Font	Desired Color	Result 1	Result 2
John Doe 1	45	BOLD	#C00000	John Doe 1	45
John Doe 2	38	BOLD	#C00000	John Doe 2	38
John Doe 3	-12	Regular	#000000	John Doe 3	-12
John Doe 4	-40	Regular	#000000	John Doe 4	-40
John Doe 5	12	Regular	#FF66CC	John Doe 5	12
John Doe 6	35	Regular	#FF66CC	John Doe 6	35
John Doe 7	67	BOLD	#FF66CC	John Doe 7	67
John Doe 8	-4	Regular	#000000	John Doe 8	-4
John Doe 9	22	BOLD	#C00000	John Doe 9	22
John Doe 10	35	BOLD	#C00000	John Doe 10	35

Many thanks in advance.

Yours,
Haworth

 

[Fluff]

How about

Sub Haworth()
   Dim Cl As Range
   Dim Hex As String
   
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      With Cl.Resize(, 2)
         .Font.FontStyle = Cl.Offset(, 2).Value
         Hex = Right(Cl.Offset(, 3), 6)
         .Font.Color = RGB("&H" & Mid(Hex, 1, 2), "&H" & Mid(Hex, 3, 2), "&H" & Mid(Hex, 5, 2))
      End With
   Next Cl
End Sub