VBA - color in cells

Im setting up a risk assesment sheet, with a matrix of 25 (5x5) fields, having different colors green-yellow-red-white. The 5x5 matrix is labeled A-E on the X-axis and 1-5 on the Y-axis.
Bellow there is a table describing new riskassesments, with two fields Safety (1-5) and consequence (A-E). Trying to make a VBA code changing the backgroundcolor of these cells to match the risk matrix color matching this value.
Looking to make this better than alot of If statements checking out all combinations.

Skjermbilde 2023-12-06 081021.png

Skjermbilde 2023-12-06 081115.png

My excel/VBA skills are somewhat limited, but Im a quick learner :D

Lars

Sorry for not posting my current code, but after my 100'th "If cell1 = 1 and cell2 = D then cellcolor = Green..." I understood my desperate need of help

Hi, thanks. Yes, have a little experience with cond.format, but only in tables with containing numbervalues. Not sure how to adress a field outside the table to get a color from another celllocation. Cell F37 and G37 = this color if CELLVALUE(F37) = X and CELLVALUE(G37) = this.

My best attempt so far is repeating the code bellow for each fielt i want to color (10 in total). Anyone have a way to repeat this Case for 10 different fields in the worksheet?
Select Case (Cells(36, 7).Value & Cells(36, 6).Value)
Case "A1", _
"A2", _
"A3", _
"A4", _
"A5", _
"B1", _
"B2", _
"C1"
Cells(36, 6).Interior.Color = RGB(0, 255, 0)
Cells(36, 7).Interior.Color = RGB(0, 255, 0)

Case "B3", _
"B4", _
"B5", _
"C2", _
"C3", _
"D1", _
"D2", _
"E1"
Cells(36, 6).Interior.Color = RGB(255, 255, 0)
Cells(36, 7).Interior.Color = RGB(255, 255, 0)
Case "C4", _
"C5", _
"D3", _
"D4", _
"E2", _
"E3"
Cells(36, 6).Interior.Color = RGB(255, 0, 0)
Cells(36, 7).Interior.Color = RGB(255, 0, 0)

Case Else
Cells(36, 6).Interior.Color = RGB(255, 255, 255)
Cells(36, 7).Interior.Color = RGB(255, 255, 255)

End Select

Thanks for all the help, got it to work.