diff --git a/FL.bas b/FL.bas
index 814696b..9b10089 100644
--- a/FL.bas
+++ b/FL.bas
@@ -1215,6 +1215,7 @@ Sub extract_price_matrix_r2()
     Dim sql As String
     Dim error As String
     Dim orig As Range
+    Dim ini As Range
     Dim cms_pl() As String
     Dim pw As String
     Dim new_sh As Worksheet
@@ -1223,7 +1224,7 @@ Sub extract_price_matrix_r2()
     
     '------------------------------------selection-------------------------------------------------
     
-    Set orig = Application.Selection
+    Set ini = Application.Selection
     
     Selection.CurrentRegion.Select
     
@@ -1366,13 +1367,17 @@ Sub extract_price_matrix_r2()
         Select Case cms_pl(i, 14)
             Case ""
                 orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor = xlThemeColorAccent6
-            Case "no unit conversion"
+            Case "No UOM Conversion"
                 If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
                     orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 255, 161)
                 End If
-            Case "no part number"
+            Case "Inactive"
                 If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
-                    orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 255, 161)
+                    orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(255, 20, 161)
+                End If
+            Case "No SKU"
+                If orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.ThemeColor <> xlThemeColorAccent6 Then
+                    orig.Worksheet.Cells(orig.row + cms_pl(i, 12) - 1, orig.column + cms_pl(i, 13) - 1).Interior.Color = RGB(20, 255, 161)
                 End If
         End Select
         'if the current row/column is OK, advance to the next row/column
@@ -1411,6 +1416,9 @@ Sub extract_price_matrix_r2()
     
     Set x = Nothing
     
+    ini.Select
+    
+    
 End Sub
 
 Sub go_to_price_issue()