Hi prestopr,

It works with Joseph P's code up to where the coloring starts if you do it this way:

Sheets("Ref_Tables").Select
'CU_LL = Application.WorksheetFunction.Index(Range("Ref_Tables!E4:E23"), _
Application.WorksheetFunction.Match(""" & mat_ox & """, Range("Ref_Tables!C4:C23"), 0), 0)
CU_LL = Evaluate("INDEX($E$4:$E$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")
CU_UL = Evaluate("INDEX($F$4:$F$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")
U_LL = Evaluate("INDEX($G$4:$G$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")
U_UL = Evaluate("INDEX($H$4:$H$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")
SG_LL = Evaluate("INDEX($I$4:$I$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")
SG_UL = Evaluate("INDEX($J$4:$J$23,MATCH(""" & mat_ox & """,$C$4:$C$23&$D$4:$D$23,0))")