How to Apply Conditional Formatting to Columns Based on Cell Value

Question

in the following VBA-Code i\'m trying to give the Cells in Range("H1:IV1") different colors based on the content of the Cell