Dim
rngLikeliHood
As
Excel.Range
Dim
rngImpact
As
Excel.Range
Dim
c
As
Excel.Range
Dim
vLikeliHood
As
Variant
Dim
vImpact
As
Variant
Set
rngLikeliHood = Range(
"I3:I7"
)
Set
rngImpact = Range(
"J2:N2"
)
For
Each
c
In
Range(
"A2:A4"
)
vLikeliHood = Application.Match(c.Offset(0, 1).Value, rngLikeliHood, 0)
vImpact = Application.Match(c.Offset(0, 2).Value, rngImpact, 0)
MsgBox c.Value &
" => "
& Cells(vLikeliHood + 2, vImpact + 9).Address
Next
c