Dim NowXlClr As xlRgbcolor
Dim NowXlClr As Long
NowXlClr = "XlRgbColor." & Src.Range("B" & LTrim(str(RowNm + 1))).Value
NowXlClr = Src.Range("C" & LTrim(str(RowNm + 1))).Value 'Col C has numbers of xlRGBColour
Selection.Offset(LTrim(str(RowNm)), 2).Interior.Color = XlRgbColor.NowXlClr
Selection.Offset(LTrim(str(RowNm)), 3).Interior.Color = NowXlClr