PDA

View Full Version : Solved: Procedure Too large to complete message.



YellowLabPro
09-06-2007, 10:32 AM
I knew this day was coming.... : pray2: just did not want it to be now.
So I need to change how I handle one of my procedures. I am doing a massive swap of terms, I will post but be prepared. I could use some ideas of how to handle differently. I will only post one sheet's code as this performs on two sheets.... would just be redunant.
So either a table of some sort or some way to handle the substitutions.

Thanks....

I built this list by hand.... so be kind.... :motz2: with your critique


Sub ColorSwapFF()
Dim Wsf As Worksheet, Wsv As Worksheet
Dim c As Range, rng As Range
Dim LRowf As Long, LRowv As Long
Dim i As Long
Dim FF As String, VB As String

FF = "PCCombined_FF"
VB = "PCCombined_VB"
Set Wsf = Worksheets(FF)
Set Wsv = Worksheets(VB)
Set Wsf = Workbooks("MasterImportSheetWebStore.xls").Worksheets("PCCombined_FF")
Set Wsv = Workbooks("MasterImportSheetWebStore.xls").Worksheets("PCCombined_VB")

LRowf = Wsf.Cells(Rows.Count, "A").End(xlUp).Row
LRowv = Wsv.Cells(Rows.Count, "A").End(xlUp).Row

Application.ScreenUpdating = True
''With ActiveSheet
''Set rng = .Range("D4:D" & LRow)
''For Each c In rng
''c = c.Value & " "
''
''Next c
''End With
'For Each c In Range("D4:D" & LRow)
' c.Value = c.Value & " "
'Next c
With Wsf
For Each c In .Range("N4:N" & LRowf)
c.Formula = " " & c & " "
Next c
'With Range("d4:d" & LRow)
' .Value = Evaluate(.Address & "&"" """)
'End With
'Stored in Color Subs.xls "Color Colors"


For Each c In Intersect(.Columns(14), .UsedRange)
'Workbook("Color Subs.xls").Worksheets(Color Colors)
'Single Color Term Swap- #3
If InStr(c.Value, " Acid ") > 0 Then c.Formula = Replace(c.Value, " Acid ", "Wash")
If InStr(c.Value, " Assorted ") > 0 Then c.Formula = Replace(c.Value, " Assorted ", "Assorted")
If InStr(c.Value, " Black ") > 0 Then c.Formula = Replace(c.Value, " Black ", "Black")
If InStr(c.Value, " Blue ") > 0 Then c.Formula = Replace(c.Value, " Blue ", "Blue")
If InStr(c.Value, " Brown ") > 0 Then c.Formula = Replace(c.Value, " Brown ", "Brown")
If InStr(c.Value, " Camo ") > 0 Then c.Formula = Replace(c.Value, " Camo ", "Camo")
If InStr(c.Value, " Chrome ") > 0 Then c.Formula = Replace(c.Value, " Chrome ", "Chrome")
If InStr(c.Value, " Clear ") > 0 Then c.Formula = Replace(c.Value, " Clear ", "Clear")
If InStr(c.Value, " Corrosion ") > 0 Then c.Formula = Replace(c.Value, " Corrosion ", "Black")
If InStr(c.Value, " Denim ") > 0 Then c.Formula = Replace(c.Value, " Denim ", "Denim")
If InStr(c.Value, " Desert Camo ") > 0 Then c.Formula = Replace(c.Value, " Desert Camo ", "Desert Camo")
If InStr(c.Value, " Dk.Blue ") > 0 Then c.Formula = Replace(c.Value, " Dk.Blue ", "Dk.Blue")
If InStr(c.Value, " Dk.Grey ") > 0 Then c.Formula = Replace(c.Value, " Dk.Grey ", "Dk.Grey")
If InStr(c.Value, " Green ") > 0 Then c.Formula = Replace(c.Value, " Green ", "Green")
If InStr(c.Value, " Grey ") > 0 Then c.Formula = Replace(c.Value, " Grey ", "Grey")
If InStr(c.Value, " Lt.Blue ") > 0 Then c.Formula = Replace(c.Value, " Lt.Blue ", "Lt.Blue")
If InStr(c.Value, " Lt.Green ") > 0 Then c.Formula = Replace(c.Value, " Lt.Green ", "Lt.Green")
If InStr(c.Value, " Metal ") > 0 Then c.Formula = Replace(c.Value, " Metal ", "Metal")
If InStr(c.Value, " Natural ") > 0 Then c.Formula = Replace(c.Value, " Natural ", "Natural")
If InStr(c.Value, " Navy ") > 0 Then c.Formula = Replace(c.Value, " Navy ", "Navy")
If InStr(c.Value, " Orange ") > 0 Then c.Formula = Replace(c.Value, " Orange ", "Orange")
If InStr(c.Value, " Pink ") > 0 Then c.Formula = Replace(c.Value, " Pink ", "Pink")
If InStr(c.Value, " Polar ") > 0 Then c.Formula = Replace(c.Value, " Polar ", "Polarized")
If InStr(c.Value, " Print ") > 0 Then c.Formula = Replace(c.Value, " Print ", "Print")
If InStr(c.Value, " Purple ") > 0 Then c.Formula = Replace(c.Value, " Purple ", "Purple")
If InStr(c.Value, " Rasta ") > 0 Then c.Formula = Replace(c.Value, " Rasta ", "Rasta")
If InStr(c.Value, " Red ") > 0 Then c.Formula = Replace(c.Value, " Red ", "Red")
If InStr(c.Value, " Skulls ") > 0 Then c.Formula = Replace(c.Value, " Skulls ", "Skulls")
If InStr(c.Value, " Stripe ") > 0 Then c.Formula = Replace(c.Value, " Stripe ", "Stripes")
If InStr(c.Value, " Tan ") > 0 Then c.Formula = Replace(c.Value, " Tan ", "Tan")
If InStr(c.Value, " White ") > 0 Then c.Formula = Replace(c.Value, " White ", "White")
If InStr(c.Value, " Yellow ") > 0 Then c.Formula = Replace(c.Value, " Yellow ", "Yellow")
If InStr(c.Value, " Amber/Clear ") > 0 Then c.Formula = Replace(c.Value, " Amber/Clear ", "Yellow+")
If InStr(c.Value, " Army/Gum ") > 0 Then c.Formula = Replace(c.Value, " Army/Gum ", "Olive+")
If InStr(c.Value, " Ash/White ") > 0 Then c.Formula = Replace(c.Value, " Ash/White ", "Lt.Grey+")
If InStr(c.Value, " Bear Rug/Grid ") > 0 Then c.Formula = Replace(c.Value, " Bear Rug/Grid ", "Brown+")
If InStr(c.Value, " Bear Rug/Stripes ") > 0 Then c.Formula = Replace(c.Value, " Bear Rug/Stripes ", "Brown+")
If InStr(c.Value, " Beige/Black ") > 0 Then c.Formula = Replace(c.Value, " Beige/Black ", "Lt.Tan+")
If InStr(c.Value, " Black/Black ") > 0 Then c.Formula = Replace(c.Value, " Black/Black ", "Black")
If InStr(c.Value, " Black/Black/Black ") > 0 Then c.Formula = Replace(c.Value, " Black/Black/Black ", "Black+")
If InStr(c.Value, " Black/Black/Red/Silver ") > 0 Then c.Formula = Replace(c.Value, " Black/Black/Red/Silver ", "Black+")
If InStr(c.Value, " Black/Black/Silver/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Black/Silver/Red ", "Black+")
If InStr(c.Value, " Black/Black/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Black/White ", "Black+")
If InStr(c.Value, " Black/Black/Why ") > 0 Then c.Formula = Replace(c.Value, " Black/Black/Why ", "Black+")
If InStr(c.Value, " Black/Blue ") > 0 Then c.Formula = Replace(c.Value, " Black/Blue ", "Black+")
If InStr(c.Value, " Black/Blue/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Blue/White ", "Black+")
If InStr(c.Value, " Black/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Black/Bronze ", "Black+")
If InStr(c.Value, " Black/Bronze/Persimmon ") > 0 Then c.Formula = Replace(c.Value, " Black/Bronze/Persimmon ", "Black+")
If InStr(c.Value, " Black/Camo ") > 0 Then c.Formula = Replace(c.Value, " Black/Camo ", "Black+")
If InStr(c.Value, " Black/Camo/Olive ") > 0 Then c.Formula = Replace(c.Value, " Black/Camo/Olive ", "Black+")
If InStr(c.Value, " Black/Canvas ") > 0 Then c.Formula = Replace(c.Value, " Black/Canvas ", "Black+")
If InStr(c.Value, " Black/Chalk ") > 0 Then c.Formula = Replace(c.Value, " Black/Chalk ", "Black+")
If InStr(c.Value, " Black/Charcoal ") > 0 Then c.Formula = Replace(c.Value, " Black/Charcoal ", "Black+")
If InStr(c.Value, " Black/Chrome ") > 0 Then c.Formula = Replace(c.Value, " Black/Chrome ", "Black+")
If InStr(c.Value, " Black/Chrome/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Chrome/White ", "Black+")
If InStr(c.Value, " Black/Citrus ") > 0 Then c.Formula = Replace(c.Value, " Black/Citrus ", "Black+")
If InStr(c.Value, " Black/Clear ") > 0 Then c.Formula = Replace(c.Value, " Black/Clear ", "Black+")
If InStr(c.Value, " Black/Corrosion ") > 0 Then c.Formula = Replace(c.Value, " Black/Corrosion ", "Black/Wash")
If InStr(c.Value, " Black/Denim ") > 0 Then c.Formula = Replace(c.Value, " Black/Denim ", "Black+")
If InStr(c.Value, " Black/Dk.Grey ") > 0 Then c.Formula = Replace(c.Value, " Black/Dk.Grey ", "Black+")
If InStr(c.Value, " Black/Dk.Grey/Green ") > 0 Then c.Formula = Replace(c.Value, " Black/Dk.Grey/Green ", "Black+")
If InStr(c.Value, " Black/Dk.Grey/Grey ") > 0 Then c.Formula = Replace(c.Value, " Black/Dk.Grey/Grey ", "Black+")
If InStr(c.Value, " Black/Dk.Grey/Gum ") > 0 Then c.Formula = Replace(c.Value, " Black/Dk.Grey/Gum ", "Black+")
If InStr(c.Value, " Black/Dk.Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Dk.Red ", "Black+")
If InStr(c.Value, " Black/Dp ") > 0 Then c.Formula = Replace(c.Value, " Black/Dp ", "Black+")
If InStr(c.Value, " Black/Fatigue ") > 0 Then c.Formula = Replace(c.Value, " Black/Fatigue ", "Black+")
If InStr(c.Value, " Black/Flt ") > 0 Then c.Formula = Replace(c.Value, " Black/Flt ", "Black+")
If InStr(c.Value, " Black/Forest ") > 0 Then c.Formula = Replace(c.Value, " Black/Forest ", "Black+")
If InStr(c.Value, " Black/G/G ") > 0 Then c.Formula = Replace(c.Value, " Black/G/G ", "Black+")
If InStr(c.Value, " Black/G/R ") > 0 Then c.Formula = Replace(c.Value, " Black/G/R ", "Black+")
If InStr(c.Value, " Black/Gior ") > 0 Then c.Formula = Replace(c.Value, " Black/Gior ", "Black/Print")
If InStr(c.Value, " Black/Gold ") > 0 Then c.Formula = Replace(c.Value, " Black/Gold ", "Black+")
If InStr(c.Value, " Black/Green ") > 0 Then c.Formula = Replace(c.Value, " Black/Green ", "Black+")
If InStr(c.Value, " Black/Green/Black ") > 0 Then c.Formula = Replace(c.Value, " Black/Green/Black ", "Black+")
If InStr(c.Value, " Black/Green/Green ") > 0 Then c.Formula = Replace(c.Value, " Black/Green/Green ", "Black+")
If InStr(c.Value, " Black/Green/Gum ") > 0 Then c.Formula = Replace(c.Value, " Black/Green/Gum ", "Black+")
If InStr(c.Value, " Black/Grey ") > 0 Then c.Formula = Replace(c.Value, " Black/Grey ", "Black+")
If InStr(c.Value, " Black/Grey/Gum ") > 0 Then c.Formula = Replace(c.Value, " Black/Grey/Gum ", "Black+")
If InStr(c.Value, " Black/Grey/Nbk ") > 0 Then c.Formula = Replace(c.Value, " Black/Grey/Nbk ", "Black+")
If InStr(c.Value, " Black/Grey/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Grey/Red ", "Black+")
If InStr(c.Value, " Black/Grey/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Grey/White ", "Black+")
If InStr(c.Value, " Black/Gum ") > 0 Then c.Formula = Replace(c.Value, " Black/Gum ", "Black+")
If InStr(c.Value, " Black/Hemp ") > 0 Then c.Formula = Replace(c.Value, " Black/Hemp ", "Black+")
If InStr(c.Value, " Black/Herringbone ") > 0 Then c.Formula = Replace(c.Value, " Black/Herringbone ", "Black+")
If InStr(c.Value, " Black/Incagld ") > 0 Then c.Formula = Replace(c.Value, " Black/Incagld ", "Black+")
If InStr(c.Value, " Black/Ivory ") > 0 Then c.Formula = Replace(c.Value, " Black/Ivory ", "Black+")
If InStr(c.Value, " Black/Leather ") > 0 Then c.Formula = Replace(c.Value, " Black/Leather ", "Black+")
If InStr(c.Value, " Black/Lt.Blue ") > 0 Then c.Formula = Replace(c.Value, " Black/Lt.Blue ", "Black+")
If InStr(c.Value, " Black/Mason ") > 0 Then c.Formula = Replace(c.Value, " Black/Mason ", "Black/Print")
If InStr(c.Value, " Black/Metal ") > 0 Then c.Formula = Replace(c.Value, " Black/Metal ", "Black+")
If InStr(c.Value, " Black/Mirror ") > 0 Then c.Formula = Replace(c.Value, " Black/Mirror ", "Black+")
If InStr(c.Value, " Black/Mirror/Bronze/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Mirror/Bronze/Red ", "Black+")
If InStr(c.Value, " Black/Mirror/Bronze/Silver ") > 0 Then c.Formula = Replace(c.Value, " Black/Mirror/Bronze/Silver ", "Black+")
If InStr(c.Value, " Black/Mustard ") > 0 Then c.Formula = Replace(c.Value, " Black/Mustard ", "Black+")
If InStr(c.Value, " Black/Natural ") > 0 Then c.Formula = Replace(c.Value, " Black/Natural ", "Black+")
If InStr(c.Value, " Black/Navy ") > 0 Then c.Formula = Replace(c.Value, " Black/Navy ", "Black+")
If InStr(c.Value, " Black/Nu ") > 0 Then c.Formula = Replace(c.Value, " Black/Nu ", "Black+")
If InStr(c.Value, " Black/Ob/Os ") > 0 Then c.Formula = Replace(c.Value, " Black/Ob/Os ", "Black+")
If InStr(c.Value, " Black/Orange ") > 0 Then c.Formula = Replace(c.Value, " Black/Orange ", "Black+")
If InStr(c.Value, " Black/Oxblood ") > 0 Then c.Formula = Replace(c.Value, " Black/Oxblood ", "Black+")
If InStr(c.Value, " Black/Pewter ") > 0 Then c.Formula = Replace(c.Value, " Black/Pewter ", "Black+")
If InStr(c.Value, " Black/Pink ") > 0 Then c.Formula = Replace(c.Value, " Black/Pink ", "Black+")
If InStr(c.Value, " Black/Pinstripe ") > 0 Then c.Formula = Replace(c.Value, " Black/Pinstripe ", "Black+")
If InStr(c.Value, " Black/Plum ") > 0 Then c.Formula = Replace(c.Value, " Black/Plum ", "Black+")
If InStr(c.Value, " Black/Punk/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Black/Punk/Bronze ", "Black+")
If InStr(c.Value, " Black/Purple ") > 0 Then c.Formula = Replace(c.Value, " Black/Purple ", "Black+")
If InStr(c.Value, " Black/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Red ", "Black+")
If InStr(c.Value, " Black/Red/Black ") > 0 Then c.Formula = Replace(c.Value, " Black/Red/Black ", "Black+")
If InStr(c.Value, " Black/Red/Grey ") > 0 Then c.Formula = Replace(c.Value, " Black/Red/Grey ", "Black+")
If InStr(c.Value, " Black/Red/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Red/White ", "Black+")
If InStr(c.Value, " Black/Rootbeer ") > 0 Then c.Formula = Replace(c.Value, " Black/Rootbeer ", "Black+")
If InStr(c.Value, " Black/Rose ") > 0 Then c.Formula = Replace(c.Value, " Black/Rose ", "Black+")
If InStr(c.Value, " Black/Royal ") > 0 Then c.Formula = Replace(c.Value, " Black/Royal ", "Black+")
If InStr(c.Value, " Black/Royal/White ") > 0 Then c.Formula = Replace(c.Value, " Black/Royal/White ", "Black+")
If InStr(c.Value, " Black/Silver ") > 0 Then c.Formula = Replace(c.Value, " Black/Silver ", "Black+")
If InStr(c.Value, " Black/Silver/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Silver/Red ", "Black+")
If InStr(c.Value, " Black/Snake ") > 0 Then c.Formula = Replace(c.Value, " Black/Snake ", "Black+")
If InStr(c.Value, " Black/St/Black/Ny ") > 0 Then c.Formula = Replace(c.Value, " Black/St/Black/Ny ", "Black+")
If InStr(c.Value, " Black/Tan ") > 0 Then c.Formula = Replace(c.Value, " Black/Tan ", "Black+")
If InStr(c.Value, " Black/Tan/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/Tan/Red ", "Black+")
If InStr(c.Value, " Black/Teal ") > 0 Then c.Formula = Replace(c.Value, " Black/Teal ", "Black+")
If InStr(c.Value, " Black/Tweed ") > 0 Then c.Formula = Replace(c.Value, " Black/Tweed ", "Black+")
If InStr(c.Value, " Black/White ") > 0 Then c.Formula = Replace(c.Value, " Black/White ", "Black+")
If InStr(c.Value, " Black/White/Black ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Black ", "Black+")
If InStr(c.Value, " Black/White/Green ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Green ", "Black+")
If InStr(c.Value, " Black/White/Grey ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Grey ", "Black+")
If InStr(c.Value, " Black/White/Gum ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Gum ", "Black+")
If InStr(c.Value, " Black/White/Red ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Red ", "Black+")
If InStr(c.Value, " Black/White/Silver ") > 0 Then c.Formula = Replace(c.Value, " Black/White/Silver ", "Black+")
If InStr(c.Value, " Black/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Black/Yellow ", "Black+")
If InStr(c.Value, " Blkrd ") > 0 Then c.Formula = Replace(c.Value, " Blkrd ", "Black+")
If InStr(c.Value, " Blue/Black ") > 0 Then c.Formula = Replace(c.Value, " Blue/Black ", "Blue+")
If InStr(c.Value, " Blue/Black/White ") > 0 Then c.Formula = Replace(c.Value, " Blue/Black/White ", "Blue+")
If InStr(c.Value, " Blue/Blue ") > 0 Then c.Formula = Replace(c.Value, " Blue/Blue ", "Blue+")
If InStr(c.Value, " Blue/Brown ") > 0 Then c.Formula = Replace(c.Value, " Blue/Brown ", "Blue+")
If InStr(c.Value, " Blue/Gloss ") > 0 Then c.Formula = Replace(c.Value, " Blue/Gloss ", "Blue+")
If InStr(c.Value, " Blue/Green ") > 0 Then c.Formula = Replace(c.Value, " Blue/Green ", "Blue+")
If InStr(c.Value, " Blue/Grey ") > 0 Then c.Formula = Replace(c.Value, " Blue/Grey ", "Blue+")
If InStr(c.Value, " Blue/Icicle ") > 0 Then c.Formula = Replace(c.Value, " Blue/Icicle ", "Blue+")
If InStr(c.Value, " Blue/Ivory ") > 0 Then c.Formula = Replace(c.Value, " Blue/Ivory ", "Blue+")
If InStr(c.Value, " Blue/Lt.Blue ") > 0 Then c.Formula = Replace(c.Value, " Blue/Lt.Blue ", "Blue+")
If InStr(c.Value, " Blue/Navy ") > 0 Then c.Formula = Replace(c.Value, " Blue/Navy ", "Blue+")
If InStr(c.Value, " Blue/Orange ") > 0 Then c.Formula = Replace(c.Value, " Blue/Orange ", "Blue+")
If InStr(c.Value, " Blue/Raw ") > 0 Then c.Formula = Replace(c.Value, " Blue/Raw ", "Blue+")
If InStr(c.Value, " Blue/Sand ") > 0 Then c.Formula = Replace(c.Value, " Blue/Sand ", "Blue+")
If InStr(c.Value, " Blue/Silver ") > 0 Then c.Formula = Replace(c.Value, " Blue/Silver ", "Blue+")
If InStr(c.Value, " Blue/White ") > 0 Then c.Formula = Replace(c.Value, " Blue/White ", "Blue+")
If InStr(c.Value, " Blue/White/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Blue/White/Yellow ", "Blue+")
If InStr(c.Value, " Bronze/Silver ") > 0 Then c.Formula = Replace(c.Value, " Bronze/Silver ", "Bronze+")
If InStr(c.Value, " Brown/Beige ") > 0 Then c.Formula = Replace(c.Value, " Brown/Beige ", "Brown+")
If InStr(c.Value, " Brown/Camo ") > 0 Then c.Formula = Replace(c.Value, " Brown/Camo ", "Brown+")
If InStr(c.Value, " Brown/Cord ") > 0 Then c.Formula = Replace(c.Value, " Brown/Cord ", "Brown+")
If InStr(c.Value, " Brown/Denim ") > 0 Then c.Formula = Replace(c.Value, " Brown/Denim ", "Brown+")
If InStr(c.Value, " Brown/Gold/Gum ") > 0 Then c.Formula = Replace(c.Value, " Brown/Gold/Gum ", "Brown+")
If InStr(c.Value, " Brown/Green ") > 0 Then c.Formula = Replace(c.Value, " Brown/Green ", "Brown+")
If InStr(c.Value, " Brown/Grey/White ") > 0 Then c.Formula = Replace(c.Value, " Brown/Grey/White ", "Brown+")
If InStr(c.Value, " Brown/Gum ") > 0 Then c.Formula = Replace(c.Value, " Brown/Gum ", "Brown+")
If InStr(c.Value, " Brown/Hemp ") > 0 Then c.Formula = Replace(c.Value, " Brown/Hemp ", "Brown+")
If InStr(c.Value, " Brown/Herringbone ") > 0 Then c.Formula = Replace(c.Value, " Brown/Herringbone ", "Brown+")
If InStr(c.Value, " Brown/Lavender ") > 0 Then c.Formula = Replace(c.Value, " Brown/Lavender ", "Brown+")
If InStr(c.Value, " Brown/Orange ") > 0 Then c.Formula = Replace(c.Value, " Brown/Orange ", "Brown+")
If InStr(c.Value, " Brown/Paisley ") > 0 Then c.Formula = Replace(c.Value, " Brown/Paisley ", "Brown+")
If InStr(c.Value, " Brown/Pinstripe ") > 0 Then c.Formula = Replace(c.Value, " Brown/Pinstripe ", "Brown+")
If InStr(c.Value, " Brown/Plaid ") > 0 Then c.Formula = Replace(c.Value, " Brown/Plaid ", "Brown+")
If InStr(c.Value, " Brown/Purple ") > 0 Then c.Formula = Replace(c.Value, " Brown/Purple ", "Brown+")
If InStr(c.Value, " Brown/Stone ") > 0 Then c.Formula = Replace(c.Value, " Brown/Stone ", "Brown+")
If InStr(c.Value, " Brown/Tan ") > 0 Then c.Formula = Replace(c.Value, " Brown/Tan ", "Brown+")
If InStr(c.Value, " Brown/Tan/Gum ") > 0 Then c.Formula = Replace(c.Value, " Brown/Tan/Gum ", "Brown+")
If InStr(c.Value, " Brown/Tan/White ") > 0 Then c.Formula = Replace(c.Value, " Brown/Tan/White ", "Brown+")
If InStr(c.Value, " Brown/Tweed ") > 0 Then c.Formula = Replace(c.Value, " Brown/Tweed ", "Brown+")
If InStr(c.Value, " Brown/White ") > 0 Then c.Formula = Replace(c.Value, " Brown/White ", "Brown+")
If InStr(c.Value, " Burgundy/Grey ") > 0 Then c.Formula = Replace(c.Value, " Burgundy/Grey ", "Dk.Red+")
If InStr(c.Value, " Burgundy/Gum ") > 0 Then c.Formula = Replace(c.Value, " Burgundy/Gum ", "Dk.Red+")
If InStr(c.Value, " Camel/Chocolate ") > 0 Then c.Formula = Replace(c.Value, " Camel/Chocolate ", "Tan+")
If InStr(c.Value, " Camo/Silver ") > 0 Then c.Formula = Replace(c.Value, " Camo/Silver ", "Camo+")
If InStr(c.Value, " Camo/White ") > 0 Then c.Formula = Replace(c.Value, " Camo/White ", "Camo+")
If InStr(c.Value, " Charcoal/Black ") > 0 Then c.Formula = Replace(c.Value, " Charcoal/Black ", "Charcoal+")
If InStr(c.Value, " Charcoal/Charcoal ") > 0 Then c.Formula = Replace(c.Value, " Charcoal/Charcoal ", "Charcoal+")
If InStr(c.Value, " Checker/Grey ") > 0 Then c.Formula = Replace(c.Value, " Checker/Grey ", "Checker+")
If InStr(c.Value, " Chocolate/Camo ") > 0 Then c.Formula = Replace(c.Value, " Chocolate/Camo ", "Chocolate+")
If InStr(c.Value, " Chocolate/Sand ") > 0 Then c.Formula = Replace(c.Value, " Chocolate/Sand ", "Chocolate+")
If InStr(c.Value, " Chocolate/Tan ") > 0 Then c.Formula = Replace(c.Value, " Chocolate/Tan ", "Brown+")
If InStr(c.Value, " Chocolate/White ") > 0 Then c.Formula = Replace(c.Value, " Chocolate/White ", "Brown+")
If InStr(c.Value, " Chrome/Black ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Black ", "Chrome+")
If InStr(c.Value, " Chrome/Blue ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Blue ", "Chrome+")
If InStr(c.Value, " Chrome/Gold ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Gold ", "Chrome+")
If InStr(c.Value, " Chrome/Green/White ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Green/White ", "Chrome+")
If InStr(c.Value, " Chrome/Pink ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Pink ", "Chrome+")
If InStr(c.Value, " Chrome/Red ") > 0 Then c.Formula = Replace(c.Value, " Chrome/Red ", "Chrome+")
If InStr(c.Value, " Chrome/White ") > 0 Then c.Formula = Replace(c.Value, " Chrome/White ", "Chrome+")
If InStr(c.Value, " Citrus/Lime ") > 0 Then c.Formula = Replace(c.Value, " Citrus/Lime ", "Lt.Yellow+")
If InStr(c.Value, " Clear/Black ") > 0 Then c.Formula = Replace(c.Value, " Clear/Black ", "Clear+")
If InStr(c.Value, " Clear/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Clear/Bronze ", "Clear+")
If InStr(c.Value, " Clear/Brown ") > 0 Then c.Formula = Replace(c.Value, " Clear/Brown ", "Clear+")
If InStr(c.Value, " Clear/Green ") > 0 Then c.Formula = Replace(c.Value, " Clear/Green ", "Clear+")
If InStr(c.Value, " Clear/Purple ") > 0 Then c.Formula = Replace(c.Value, " Clear/Purple ", "Clear+")
If InStr(c.Value, " Clear/Red ") > 0 Then c.Formula = Replace(c.Value, " Clear/Red ", "Clear+")
If InStr(c.Value, " Clear/White ") > 0 Then c.Formula = Replace(c.Value, " Clear/White ", "Clear+")
If InStr(c.Value, " Cloud/Charcoal ") > 0 Then c.Formula = Replace(c.Value, " Cloud/Charcoal ", "Lt.Blue")
If InStr(c.Value, " Dch/Gum ") > 0 Then c.Formula = Replace(c.Value, " Dch/Gum ", "Dk.Grey+")
If InStr(c.Value, " Denim/Herringbone ") > 0 Then c.Formula = Replace(c.Value, " Denim/Herringbone ", "Denim+")
If InStr(c.Value, " Dk.Grey/Black ") > 0 Then c.Formula = Replace(c.Value, " Dk.Grey/Black ", "Dk.Grey+")
If InStr(c.Value, " Dk.Grey/Black/Red ") > 0 Then c.Formula = Replace(c.Value, " Dk.Grey/Black/Red ", "Dk.Grey+")
If InStr(c.Value, " Elephant/Black ") > 0 Then c.Formula = Replace(c.Value, " Elephant/Black ", "Print+")
If InStr(c.Value, " Espresso/Honey ") > 0 Then c.Formula = Replace(c.Value, " Espresso/Honey ", "Brown+")
If InStr(c.Value, " Fatigue/Green ") > 0 Then c.Formula = Replace(c.Value, " Fatigue/Green ", "Olive+")
If InStr(c.Value, " Gold/Black ") > 0 Then c.Formula = Replace(c.Value, " Gold/Black ", "Yellow+")
If InStr(c.Value, " Gold/Prl ") > 0 Then c.Formula = Replace(c.Value, " Gold/Prl ", "Yellow+")
If InStr(c.Value, " Gold/Red ") > 0 Then c.Formula = Replace(c.Value, " Gold/Red ", "Yellow+")
If InStr(c.Value, " Gold/Twl ") > 0 Then c.Formula = Replace(c.Value, " Gold/Twl ", "Yellow+")
If InStr(c.Value, " Gorilla/Grey ") > 0 Then c.Formula = Replace(c.Value, " Gorilla/Grey ", "Print+")
If InStr(c.Value, " Graphite/Grey ") > 0 Then c.Formula = Replace(c.Value, " Graphite/Grey ", "Dk.Grey+")
If InStr(c.Value, " Green/Black ") > 0 Then c.Formula = Replace(c.Value, " Green/Black ", "Green+")
If InStr(c.Value, " Green/Clear ") > 0 Then c.Formula = Replace(c.Value, " Green/Clear ", "Green+")
If InStr(c.Value, " Green/Denim ") > 0 Then c.Formula = Replace(c.Value, " Green/Denim ", "Green+")
If InStr(c.Value, " Green/Mirror/Bronze/Gold ") > 0 Then c.Formula = Replace(c.Value, " Green/Mirror/Bronze/Gold ", "Green+")
If InStr(c.Value, " Green/Raw ") > 0 Then c.Formula = Replace(c.Value, " Green/Raw ", "Green+")
If InStr(c.Value, " Green/Tapestry ") > 0 Then c.Formula = Replace(c.Value, " Green/Tapestry ", "Green+")
If InStr(c.Value, " Green/White ") > 0 Then c.Formula = Replace(c.Value, " Green/White ", "Green+")
If InStr(c.Value, " Green/White/Black ") > 0 Then c.Formula = Replace(c.Value, " Green/White/Black ", "Green+")
If InStr(c.Value, " Green/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Green/Yellow ", "Green+")
If InStr(c.Value, " Grey/Black ") > 0 Then c.Formula = Replace(c.Value, " Grey/Black ", "Grey+")
If InStr(c.Value, " Grey/Black/Red ") > 0 Then c.Formula = Replace(c.Value, " Grey/Black/Red ", "Grey+")
If InStr(c.Value, " Grey/Blue ") > 0 Then c.Formula = Replace(c.Value, " Grey/Blue ", "Grey+")
If InStr(c.Value, " Grey/Denim ") > 0 Then c.Formula = Replace(c.Value, " Grey/Denim ", "Grey+")
If InStr(c.Value, " Grey/Dk.Grey ") > 0 Then c.Formula = Replace(c.Value, " Grey/Dk.Grey ", "Grey+")
If InStr(c.Value, " Grey/Heather ") > 0 Then c.Formula = Replace(c.Value, " Grey/Heather ", "Grey+")
If InStr(c.Value, " Grey/Lt.Grey ") > 0 Then c.Formula = Replace(c.Value, " Grey/Lt.Grey ", "Grey+")
If InStr(c.Value, " Grey/Maroon ") > 0 Then c.Formula = Replace(c.Value, " Grey/Maroon ", "Grey+")
If InStr(c.Value, " Grey/Navy ") > 0 Then c.Formula = Replace(c.Value, " Grey/Navy ", "Grey+")
If InStr(c.Value, " Grey/Navy/White ") > 0 Then c.Formula = Replace(c.Value, " Grey/Navy/White ", "Grey+")
If InStr(c.Value, " Grey/Orange ") > 0 Then c.Formula = Replace(c.Value, " Grey/Orange ", "Grey+")
If InStr(c.Value, " Grey/Red ") > 0 Then c.Formula = Replace(c.Value, " Grey/Red ", "Grey+")
If InStr(c.Value, " Grey/Tapestry ") > 0 Then c.Formula = Replace(c.Value, " Grey/Tapestry ", "Grey+")
If InStr(c.Value, " Grey/White ") > 0 Then c.Formula = Replace(c.Value, " Grey/White ", "Grey+")
If InStr(c.Value, " Grey/White/Red ") > 0 Then c.Formula = Replace(c.Value, " Grey/White/Red ", "Grey+")
If InStr(c.Value, " Grey/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Grey/Yellow ", "Grey+")
If InStr(c.Value, " Icegry/Blue ") > 0 Then c.Formula = Replace(c.Value, " Icegry/Blue ", "Lt.Grey+")
If InStr(c.Value, " Ivory/Pink ") > 0 Then c.Formula = Replace(c.Value, " Ivory/Pink ", "Off-White+")
If InStr(c.Value, " Jet/Grey ") > 0 Then c.Formula = Replace(c.Value, " Jet/Grey ", "Black+")
If InStr(c.Value, " Khaki/Chocolate ") > 0 Then c.Formula = Replace(c.Value, " Khaki/Chocolate ", "Tan+")
If InStr(c.Value, " Khaki/Green ") > 0 Then c.Formula = Replace(c.Value, " Khaki/Green ", "Tan+")
If InStr(c.Value, " Khaki/Lt.Grey ") > 0 Then c.Formula = Replace(c.Value, " Khaki/Lt.Grey ", "Tan+")
If InStr(c.Value, " Koa/Maple ") > 0 Then c.Formula = Replace(c.Value, " Koa/Maple ", "Wood")
If InStr(c.Value, " Lavender/Grey ") > 0 Then c.Formula = Replace(c.Value, " Lavender/Grey ", "Lt.Purple+")
If InStr(c.Value, " Lt.Blue/Purple ") > 0 Then c.Formula = Replace(c.Value, " Lt.Blue/Purple ", "Lt.Blue+")
If InStr(c.Value, " Lt.Blue/White/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Lt.Blue/White/Yellow ", "Lt.Blue+")
If InStr(c.Value, " Lt.Grey/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Lt.Grey/Bronze ", "Lt.Grey+")
If InStr(c.Value, " Lt.Grey/Pink ") > 0 Then c.Formula = Replace(c.Value, " Lt.Grey/Pink ", "Lt.Grey+")
If InStr(c.Value, " Ltslate/Magenta ") > 0 Then c.Formula = Replace(c.Value, " Ltslate/Magenta ", "Grey+")
If InStr(c.Value, " Maroon/White ") > 0 Then c.Formula = Replace(c.Value, " Maroon/White ", "Dk.Red+")
If InStr(c.Value, " Matte/Brown ") > 0 Then c.Formula = Replace(c.Value, " Matte/Brown ", "Brown")
If InStr(c.Value, " Mdgry/Black ") > 0 Then c.Formula = Replace(c.Value, " Mdgry/Black ", "Grey+")
If InStr(c.Value, " Mirror/Blue/Mirror ") > 0 Then c.Formula = Replace(c.Value, " Mirror/Blue/Mirror ", "Mirror+")
If InStr(c.Value, " Mirror/Gold ") > 0 Then c.Formula = Replace(c.Value, " Mirror/Gold ", "Mirror+")
If InStr(c.Value, " Mirror/Gold/Chrome ") > 0 Then c.Formula = Replace(c.Value, " Mirror/Gold/Chrome ", "Mirror+")
If InStr(c.Value, " Mirror/Gold/Mirror ") > 0 Then c.Formula = Replace(c.Value, " Mirror/Gold/Mirror ", "Mirror+")
If InStr(c.Value, " Mocha/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Mocha/Bronze ", "Tan+")
If InStr(c.Value, " Morningwood/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Morningwood/Bronze ", "Print+")
If InStr(c.Value, " Moss/Fade ") > 0 Then c.Formula = Replace(c.Value, " Moss/Fade ", "Olive+")
If InStr(c.Value, " Natural/Hemp ") > 0 Then c.Formula = Replace(c.Value, " Natural/Hemp ", "Natural+")
If InStr(c.Value, " Navy/Camo ") > 0 Then c.Formula = Replace(c.Value, " Navy/Camo ", "Navy+")
If InStr(c.Value, " Navy/Dk.Grey ") > 0 Then c.Formula = Replace(c.Value, " Navy/Dk.Grey ", "Navy+")
If InStr(c.Value, " Navy/Grey ") > 0 Then c.Formula = Replace(c.Value, " Navy/Grey ", "Navy+")
If InStr(c.Value, " Navy/Grey/Black ") > 0 Then c.Formula = Replace(c.Value, " Navy/Grey/Black ", "Navy+")
If InStr(c.Value, " Navy/Grey/White ") > 0 Then c.Formula = Replace(c.Value, " Navy/Grey/White ", "Navy+")
If InStr(c.Value, " Navy/Lt.Blue ") > 0 Then c.Formula = Replace(c.Value, " Navy/Lt.Blue ", "Navy+")
If InStr(c.Value, " Navy/Mdgry ") > 0 Then c.Formula = Replace(c.Value, " Navy/Mdgry ", "Navy+")
If InStr(c.Value, " Navy/Navy ") > 0 Then c.Formula = Replace(c.Value, " Navy/Navy ", "Navy+")
If InStr(c.Value, " Navy/Red ") > 0 Then c.Formula = Replace(c.Value, " Navy/Red ", "Navy+")
If InStr(c.Value, " Navy/Silver/Silver ") > 0 Then c.Formula = Replace(c.Value, " Navy/Silver/Silver ", "Navy+")
If InStr(c.Value, " Navy/White ") > 0 Then c.Formula = Replace(c.Value, " Navy/White ", "Navy+")
If InStr(c.Value, " Navy/White/Checker ") > 0 Then c.Formula = Replace(c.Value, " Navy/White/Checker ", "Navy+")
If InStr(c.Value, " Navy/White/Gum ") > 0 Then c.Formula = Replace(c.Value, " Navy/White/Gum ", "Navy+")
If InStr(c.Value, " Navy/White/White ") > 0 Then c.Formula = Replace(c.Value, " Navy/White/White ", "Navy+")
If InStr(c.Value, " Navy/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Navy/Yellow ", "Navy+")
If InStr(c.Value, " Olive/Clear ") > 0 Then c.Formula = Replace(c.Value, " Olive/Clear ", "Olive+")
If InStr(c.Value, " Olive/Green ") > 0 Then c.Formula = Replace(c.Value, " Olive/Green ", "Olive+")
If InStr(c.Value, " Olive/Lavender ") > 0 Then c.Formula = Replace(c.Value, " Olive/Lavender ", "Olive+")
If InStr(c.Value, " Olive/White ") > 0 Then c.Formula = Replace(c.Value, " Olive/White ", "Olive+")
If InStr(c.Value, " Orange/Black ") > 0 Then c.Formula = Replace(c.Value, " Orange/Black ", "Orange+")
If InStr(c.Value, " Orange/Clear ") > 0 Then c.Formula = Replace(c.Value, " Orange/Clear ", "Orange+")
If InStr(c.Value, " Orange/White ") > 0 Then c.Formula = Replace(c.Value, " Orange/White ", "Orange+")
If InStr(c.Value, " Oxblood/Checker ") > 0 Then c.Formula = Replace(c.Value, " Oxblood/Checker ", "Dk.Red+")
If InStr(c.Value, " Paulownia/Maple ") > 0 Then c.Formula = Replace(c.Value, " Paulownia/Maple ", "Wood+")
If InStr(c.Value, " Pearwood/Gradient ") > 0 Then c.Formula = Replace(c.Value, " Pearwood/Gradient ", "Print+")
If InStr(c.Value, " Pewter/Black ") > 0 Then c.Formula = Replace(c.Value, " Pewter/Black ", "Lt.Grey+")
If InStr(c.Value, " Pewter/White/Pewter ") > 0 Then c.Formula = Replace(c.Value, " Pewter/White/Pewter ", "Grey+")
If InStr(c.Value, " Pink/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Pink/Bronze ", "Pink+")
If InStr(c.Value, " Pink/Navy/White ") > 0 Then c.Formula = Replace(c.Value, " Pink/Navy/White ", "Pink+")
If InStr(c.Value, " Pink/Purple ") > 0 Then c.Formula = Replace(c.Value, " Pink/Purple ", "Pink+")
If InStr(c.Value, " Pink/Tweed ") > 0 Then c.Formula = Replace(c.Value, " Pink/Tweed ", "Pink+")
If InStr(c.Value, " Plaid/Cream ") > 0 Then c.Formula = Replace(c.Value, " Plaid/Cream ", "Plaid+")
If InStr(c.Value, " Plum/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Plum/Bronze ", "Dk.Purple+")
If InStr(c.Value, " Plum/Denim ") > 0 Then c.Formula = Replace(c.Value, " Plum/Denim ", "Dk.Purple+")
If InStr(c.Value, " Purple/Black ") > 0 Then c.Formula = Replace(c.Value, " Purple/Black ", "Purple+")
If InStr(c.Value, " Raw/Black ") > 0 Then c.Formula = Replace(c.Value, " Raw/Black ", "Raw+")
If InStr(c.Value, " Raw/White ") > 0 Then c.Formula = Replace(c.Value, " Raw/White ", "Raw+")
If InStr(c.Value, " Red/Black ") > 0 Then c.Formula = Replace(c.Value, " Red/Black ", "Red+")
If InStr(c.Value, " Red/Chrome ") > 0 Then c.Formula = Replace(c.Value, " Red/Chrome ", "Red+")
If InStr(c.Value, " Red/Gold ") > 0 Then c.Formula = Replace(c.Value, " Red/Gold ", "Red+")
If InStr(c.Value, " Red/Pink ") > 0 Then c.Formula = Replace(c.Value, " Red/Pink ", "Red+")
If InStr(c.Value, " Red/Plt ") > 0 Then c.Formula = Replace(c.Value, " Red/Plt ", "Red+")
If InStr(c.Value, " Red/Silver ") > 0 Then c.Formula = Replace(c.Value, " Red/Silver ", "Red+")
If InStr(c.Value, " Red/White ") > 0 Then c.Formula = Replace(c.Value, " Red/White ", "Red+")
If InStr(c.Value, " Red/White/Black ") > 0 Then c.Formula = Replace(c.Value, " Red/White/Black ", "Red+")
If InStr(c.Value, " Red/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Red/Yellow ", "Red+")
If InStr(c.Value, " Royal/Black/White ") > 0 Then c.Formula = Replace(c.Value, " Royal/Black/White ", "Royal+")
If InStr(c.Value, " Rust/Black ") > 0 Then c.Formula = Replace(c.Value, " Rust/Black ", "Dk.Orange+")
If InStr(c.Value, " Sahara/Pinstripe ") > 0 Then c.Formula = Replace(c.Value, " Sahara/Pinstripe ", "Brown+")
If InStr(c.Value, " Salt/Jacquard ") > 0 Then c.Formula = Replace(c.Value, " Salt/Jacquard ", "White/Print")
If InStr(c.Value, " Salt/Pepper ") > 0 Then c.Formula = Replace(c.Value, " Salt/Pepper ", "White+")
If InStr(c.Value, " Sand/Pink ") > 0 Then c.Formula = Replace(c.Value, " Sand/Pink ", "Tan+")
If InStr(c.Value, " Silver/Black ") > 0 Then c.Formula = Replace(c.Value, " Silver/Black ", "Grey+")
If InStr(c.Value, " Silver/Green ") > 0 Then c.Formula = Replace(c.Value, " Silver/Green ", "Grey+")
If InStr(c.Value, " Silver/Pc/Co/Silver ") > 0 Then c.Formula = Replace(c.Value, " Silver/Pc/Co/Silver ", "Grey+")
If InStr(c.Value, " Silver/Red ") > 0 Then c.Formula = Replace(c.Value, " Silver/Red ", "Grey+")
If InStr(c.Value, " Silver/White/Silver ") > 0 Then c.Formula = Replace(c.Value, " Silver/White/Silver ", "Grey+")
If InStr(c.Value, " Slgry/Mdgry ") > 0 Then c.Formula = Replace(c.Value, " Slgry/Mdgry ", "Grey+")
If InStr(c.Value, " Steel/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Steel/Bronze ", "Metal")
If InStr(c.Value, " Stripes/Circles ") > 0 Then c.Formula = Replace(c.Value, " Stripes/Circles ", "Print+")
If InStr(c.Value, " Tan/Blue ") > 0 Then c.Formula = Replace(c.Value, " Tan/Blue ", "Tan+")
If InStr(c.Value, " Tan/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Tan/Bronze ", "Tan+")
If InStr(c.Value, " Tan/Brown ") > 0 Then c.Formula = Replace(c.Value, " Tan/Brown ", "Tan+")
If InStr(c.Value, " Tan/Camo ") > 0 Then c.Formula = Replace(c.Value, " Tan/Camo ", "Tan+")
If InStr(c.Value, " Tan/Green ") > 0 Then c.Formula = Replace(c.Value, " Tan/Green ", "Tan+")
If InStr(c.Value, " Tan/White ") > 0 Then c.Formula = Replace(c.Value, " Tan/White ", "Tan+")
If InStr(c.Value, " Taupe/White ") > 0 Then c.Formula = Replace(c.Value, " Taupe/White ", "Lt.Grey+")
If InStr(c.Value, " Tgr/Camo ") > 0 Then c.Formula = Replace(c.Value, " Tgr/Camo ", "Print+")
If InStr(c.Value, " Tortise/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Tortise/Bronze ", "Brown+")
If InStr(c.Value, " White/Berry ") > 0 Then c.Formula = Replace(c.Value, " White/Berry ", "White+")
If InStr(c.Value, " White/Black ") > 0 Then c.Formula = Replace(c.Value, " White/Black ", "White+")
If InStr(c.Value, " White/Black/Gum ") > 0 Then c.Formula = Replace(c.Value, " White/Black/Gum ", "White+")
If InStr(c.Value, " White/Black/Mirror ") > 0 Then c.Formula = Replace(c.Value, " White/Black/Mirror ", "White+")
If InStr(c.Value, " White/Black/Red ") > 0 Then c.Formula = Replace(c.Value, " White/Black/Red ", "White+")
If InStr(c.Value, " White/Black/White ") > 0 Then c.Formula = Replace(c.Value, " White/Black/White ", "White+")
If InStr(c.Value, " White/Blue ") > 0 Then c.Formula = Replace(c.Value, " White/Blue ", "White+")
If InStr(c.Value, " White/Bronze ") > 0 Then c.Formula = Replace(c.Value, " White/Bronze ", "White+")
If InStr(c.Value, " White/Bronze/Persimmon ") > 0 Then c.Formula = Replace(c.Value, " White/Bronze/Persimmon ", "White+")
If InStr(c.Value, " White/Brown ") > 0 Then c.Formula = Replace(c.Value, " White/Brown ", "White+")
If InStr(c.Value, " White/Chocolate ") > 0 Then c.Formula = Replace(c.Value, " White/Chocolate ", "White+")
If InStr(c.Value, " White/Clear ") > 0 Then c.Formula = Replace(c.Value, " White/Clear ", "White+")
If InStr(c.Value, " White/Forest ") > 0 Then c.Formula = Replace(c.Value, " White/Forest ", "White+")
If InStr(c.Value, " White/Gold ") > 0 Then c.Formula = Replace(c.Value, " White/Gold ", "White+")
If InStr(c.Value, " White/Green ") > 0 Then c.Formula = Replace(c.Value, " White/Green ", "White+")
If InStr(c.Value, " White/Grey ") > 0 Then c.Formula = Replace(c.Value, " White/Grey ", "White+")
If InStr(c.Value, " White/Grey/Red ") > 0 Then c.Formula = Replace(c.Value, " White/Grey/Red ", "White+")
If InStr(c.Value, " White/Gum ") > 0 Then c.Formula = Replace(c.Value, " White/Gum ", "White+")
If InStr(c.Value, " White/Lt.Blue ") > 0 Then c.Formula = Replace(c.Value, " White/Lt.Blue ", "White+")
If InStr(c.Value, " White/Maroon ") > 0 Then c.Formula = Replace(c.Value, " White/Maroon ", "White+")
If InStr(c.Value, " White/Mirror/Blue ") > 0 Then c.Formula = Replace(c.Value, " White/Mirror/Blue ", "White+")
If InStr(c.Value, " White/Mirror/Bronze ") > 0 Then c.Formula = Replace(c.Value, " White/Mirror/Bronze ", "White+")
If InStr(c.Value, " White/Multi/Print ") > 0 Then c.Formula = Replace(c.Value, " White/Multi/Print ", "White+")
If InStr(c.Value, " White/Navy ") > 0 Then c.Formula = Replace(c.Value, " White/Navy ", "White+")
If InStr(c.Value, " White/Olive ") > 0 Then c.Formula = Replace(c.Value, " White/Olive ", "White+")
If InStr(c.Value, " White/Orange ") > 0 Then c.Formula = Replace(c.Value, " White/Orange ", "White+")
If InStr(c.Value, " White/Patte ") > 0 Then c.Formula = Replace(c.Value, " White/Patte ", "White+")
If InStr(c.Value, " White/Pinstripe ") > 0 Then c.Formula = Replace(c.Value, " White/Pinstripe ", "White+")
If InStr(c.Value, " White/Raw ") > 0 Then c.Formula = Replace(c.Value, " White/Raw ", "White+")
If InStr(c.Value, " White/Red ") > 0 Then c.Formula = Replace(c.Value, " White/Red ", "White+")
If InStr(c.Value, " White/Royal ") > 0 Then c.Formula = Replace(c.Value, " White/Royal ", "White+")
If InStr(c.Value, " White/Sand ") > 0 Then c.Formula = Replace(c.Value, " White/Sand ", "White+")
If InStr(c.Value, " White/Turquoise ") > 0 Then c.Formula = Replace(c.Value, " White/Turquoise ", "White+")
If InStr(c.Value, " White/White ") > 0 Then c.Formula = Replace(c.Value, " White/White ", "White+")
If InStr(c.Value, " White/White/Reflective ") > 0 Then c.Formula = Replace(c.Value, " White/White/Reflective ", "White+")
If InStr(c.Value, " Woodland/Camo ") > 0 Then c.Formula = Replace(c.Value, " Woodland/Camo ", "Print+")
If InStr(c.Value, " Yellow/Black ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Black ", "Yellow+")
If InStr(c.Value, " Yellow/Bronze ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Bronze ", "Yellow+")
If InStr(c.Value, " Yellow/Mustard ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Mustard ", "Yellow+")
If InStr(c.Value, " Yellow/Orange ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Orange ", "Yellow+")
If InStr(c.Value, " Yellow/Pinstripe ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Pinstripe ", "Yellow+")
If InStr(c.Value, " Yellow/Yellow ") > 0 Then c.Formula = Replace(c.Value, " Yellow/Yellow ", "Yellow+")
If InStr(c.Value, " 60S ") > 0 Then c.Formula = Replace(c.Value, " 60S ", "Denim-Wash")
If InStr(c.Value, " Acid ") > 0 Then c.Formula = Replace(c.Value, " Acid ", "Wash")
If InStr(c.Value, " Amber ") > 0 Then c.Formula = Replace(c.Value, " Amber ", "Yellow")
If InStr(c.Value, " Amethyst ") > 0 Then c.Formula = Replace(c.Value, " Amethyst ", "Purple")
If InStr(c.Value, " Aqua ") > 0 Then c.Formula = Replace(c.Value, " Aqua ", "Turquoise")
If InStr(c.Value, " Argyle ") > 0 Then c.Formula = Replace(c.Value, " Argyle ", "Print")
If InStr(c.Value, " Army ") > 0 Then c.Formula = Replace(c.Value, " Army ", "Dk.Green")
If InStr(c.Value, " Artic ") > 0 Then c.Formula = Replace(c.Value, " Artic ", "White")
If InStr(c.Value, " Atmosphere ") > 0 Then c.Formula = Replace(c.Value, " Atmosphere ", "Lt.Blue")
If InStr(c.Value, " Avocado ") > 0 Then c.Formula = Replace(c.Value, " Avocado ", "Green")
If InStr(c.Value, " Bamboo ") > 0 Then c.Formula = Replace(c.Value, " Bamboo ", "Wood")
If InStr(c.Value, " Bd ") > 0 Then c.Formula = Replace(c.Value, " Bd ", "Dk.Red")
If InStr(c.Value, " Bear Rug ") > 0 Then c.Formula = Replace(c.Value, " Bear Rug ", "Brown")
If InStr(c.Value, " Beige ") > 0 Then c.Formula = Replace(c.Value, " Beige ", "Lt.Tan")
If InStr(c.Value, " Beige/Gum ") > 0 Then c.Formula = Replace(c.Value, " Beige/Gum ", "Lt.Tan+")
If InStr(c.Value, " Black_Camo ") > 0 Then c.Formula = Replace(c.Value, " Black_Camo ", "Black")
If InStr(c.Value, " Black_Tweed ") > 0 Then c.Formula = Replace(c.Value, " Black_Tweed ", "Black")
If InStr(c.Value, " Blackout ") > 0 Then c.Formula = Replace(c.Value, " Blackout ", "Black")
If InStr(c.Value, " Blood ") > 0 Then c.Formula = Replace(c.Value, " Blood ", "Dk.Red")
If InStr(c.Value, " Bone ") > 0 Then c.Formula = Replace(c.Value, " Bone ", "Off-White")
If InStr(c.Value, " Brick ") > 0 Then c.Formula = Replace(c.Value, " Brick ", "Dk.Red")
If InStr(c.Value, " Brimstone ") > 0 Then c.Formula = Replace(c.Value, " Brimstone ", "Red")
If InStr(c.Value, " Bronze ") > 0 Then c.Formula = Replace(c.Value, " Bronze ", "Brown")
If InStr(c.Value, " Burgundy ") > 0 Then c.Formula = Replace(c.Value, " Burgundy ", "Dk.Red")
If InStr(c.Value, " Cactus ") > 0 Then c.Formula = Replace(c.Value, " Cactus ", "Lt.Green")
If InStr(c.Value, " Canvas ") > 0 Then c.Formula = Replace(c.Value, " Canvas ", "Natural")
If InStr(c.Value, " Cement ") > 0 Then c.Formula = Replace(c.Value, " Cement ", "Lt.Grey")
If InStr(c.Value, " Chalk ") > 0 Then c.Formula = Replace(c.Value, " Chalk ", "Off-White")
If InStr(c.Value, " Charcoal ") > 0 Then c.Formula = Replace(c.Value, " Charcoal ", "Dk.Grey")
If InStr(c.Value, " Chive ") > 0 Then c.Formula = Replace(c.Value, " Chive ", "Green")
If InStr(c.Value, " Chocolate ") > 0 Then c.Formula = Replace(c.Value, " Chocolate ", "Brown")
If InStr(c.Value, " Circles ") > 0 Then c.Formula = Replace(c.Value, " Circles ", "Print")
If InStr(c.Value, " Citrus ") > 0 Then c.Formula = Replace(c.Value, " Citrus ", "Lt.Yellow")
If InStr(c.Value, " Cloud ") > 0 Then c.Formula = Replace(c.Value, " Cloud ", "Lt.Blue")
If InStr(c.Value, " Coffee ") > 0 Then c.Formula = Replace(c.Value, " Coffee ", "Brown")
If InStr(c.Value, " Coral ") > 0 Then c.Formula = Replace(c.Value, " Coral ", "Lt.Orange")
If InStr(c.Value, " Corrosion ") > 0 Then c.Formula = Replace(c.Value, " Corrosion ", "Black")
If InStr(c.Value, " Cream ") > 0 Then c.Formula = Replace(c.Value, " Cream ", "Off-White")
If InStr(c.Value, " Crimson ") > 0 Then c.Formula = Replace(c.Value, " Crimson ", "Dk.Red")
If InStr(c.Value, " Crocodile ") > 0 Then c.Formula = Replace(c.Value, " Crocodile ", "Print")
If InStr(c.Value, " Crosshatch ") > 0 Then c.Formula = Replace(c.Value, " Crosshatch ", "Denim-Wash")
If InStr(c.Value, " Dayquil ") > 0 Then c.Formula = Replace(c.Value, " Dayquil ", "Print")
If InStr(c.Value, " Dijon ") > 0 Then c.Formula = Replace(c.Value, " Dijon ", "Yellow")
If InStr(c.Value, " Distress ") > 0 Then c.Formula = Replace(c.Value, " Distress ", "Denim-Wash")
If InStr(c.Value, " Dk.Plaid ") > 0 Then c.Formula = Replace(c.Value, " Dk.Plaid ", "Print")
If InStr(c.Value, " Drt ") > 0 Then c.Formula = Replace(c.Value, " Drt ", "Denim-Wash")
If InStr(c.Value, " Dublin ") > 0 Then c.Formula = Replace(c.Value, " Dublin ", "Green")
If InStr(c.Value, " Dundee ") > 0 Then c.Formula = Replace(c.Value, " Dundee ", "Print")
If InStr(c.Value, " Dune ") > 0 Then c.Formula = Replace(c.Value, " Dune ", "Tan")
If InStr(c.Value, " Egg ") > 0 Then c.Formula = Replace(c.Value, " Egg ", "Off-White")
If InStr(c.Value, " Elephant ") > 0 Then c.Formula = Replace(c.Value, " Elephant ", "Print")
If InStr(c.Value, " Ert ") > 0 Then c.Formula = Replace(c.Value, " Ert ", "Denim-Wash")
If InStr(c.Value, " Est ") > 0 Then c.Formula = Replace(c.Value, " Est ", "Grey")
If InStr(c.Value, " Fatigue ") > 0 Then c.Formula = Replace(c.Value, " Fatigue ", "Dk.Green")
If InStr(c.Value, " Fire ") > 0 Then c.Formula = Replace(c.Value, " Fire ", "Red")
If InStr(c.Value, " Floral ") > 0 Then c.Formula = Replace(c.Value, " Floral ", "Print")
If InStr(c.Value, " Fucia ") > 0 Then c.Formula = Replace(c.Value, " Fucia ", "Pink")
If InStr(c.Value, " Fucia ") > 0 Then c.Formula = Replace(c.Value, " Fucia ", "Pink")
If InStr(c.Value, " Fusia ") > 0 Then c.Formula = Replace(c.Value, " Fusia ", "Pink")
If InStr(c.Value, " Gold ") > 0 Then c.Formula = Replace(c.Value, " Gold ", "Yellow")
If InStr(c.Value, " Grid ") > 0 Then c.Formula = Replace(c.Value, " Grid ", "Plaid")
If InStr(c.Value, " Gum ") > 0 Then c.Formula = Replace(c.Value, " Gum ", "Tan")
If InStr(c.Value, " Gunmetal ") > 0 Then c.Formula = Replace(c.Value, " Gunmetal ", "Dk.Grey")
If InStr(c.Value, " Hardwood ") > 0 Then c.Formula = Replace(c.Value, " Hardwood ", "Wood")
If InStr(c.Value, " Hazel ") > 0 Then c.Formula = Replace(c.Value, " Hazel ", "Green")
If InStr(c.Value, " Heather ") > 0 Then c.Formula = Replace(c.Value, " Heather ", "Grey")
If InStr(c.Value, " Hemp ") > 0 Then c.Formula = Replace(c.Value, " Hemp ", "Natural")
If InStr(c.Value, " Heritage ") > 0 Then c.Formula = Replace(c.Value, " Heritage ", "Denim-Wash")
If InStr(c.Value, " Herringbone ") > 0 Then c.Formula = Replace(c.Value, " Herringbone ", "Print")
If InStr(c.Value, " Hydro ") > 0 Then c.Formula = Replace(c.Value, " Hydro ", "Print")
If InStr(c.Value, " Ice ") > 0 Then c.Formula = Replace(c.Value, " Ice ", "Lt.Blue")
If InStr(c.Value, " Iguana ") > 0 Then c.Formula = Replace(c.Value, " Iguana ", "Print")
If InStr(c.Value, " Indigo ") > 0 Then c.Formula = Replace(c.Value, " Indigo ", "Dk.Blue")
If InStr(c.Value, " Ivory ") > 0 Then c.Formula = Replace(c.Value, " Ivory ", "Off-White")
If InStr(c.Value, " Jean ") > 0 Then c.Formula = Replace(c.Value, " Jean ", "Denim")
If InStr(c.Value, " Kelly ") > 0 Then c.Formula = Replace(c.Value, " Kelly ", "Green")
If InStr(c.Value, " Khaki ") > 0 Then c.Formula = Replace(c.Value, " Khaki ", "Tan")
If InStr(c.Value, " Koa ") > 0 Then c.Formula = Replace(c.Value, " Koa ", "Wood")
If InStr(c.Value, " Lemon ") > 0 Then c.Formula = Replace(c.Value, " Lemon ", "Yellow")
If InStr(c.Value, " Leopard ") > 0 Then c.Formula = Replace(c.Value, " Leopard ", "Print")
If InStr(c.Value, " Lime ") > 0 Then c.Formula = Replace(c.Value, " Lime ", "Lt.Green")
If InStr(c.Value, " Maple ") > 0 Then c.Formula = Replace(c.Value, " Maple ", "Wood")
If InStr(c.Value, " Maroon ") > 0 Then c.Formula = Replace(c.Value, " Maroon ", "Dk.Red")
If InStr(c.Value, " Maze ") > 0 Then c.Formula = Replace(c.Value, " Maze ", "Lt.Yellow")
If InStr(c.Value, " Merlin ") > 0 Then c.Formula = Replace(c.Value, " Merlin ", "Purple")
If InStr(c.Value, " Metallic ") > 0 Then c.Formula = Replace(c.Value, " Metallic ", "Metallic")
If InStr(c.Value, " Mgy ") > 0 Then c.Formula = Replace(c.Value, " Mgy ", "Grey")
If InStr(c.Value, " Milimint ") > 0 Then c.Formula = Replace(c.Value, " Milimint ", "Lt.Green")
If InStr(c.Value, " Military ") > 0 Then c.Formula = Replace(c.Value, " Military ", "Olive")
If InStr(c.Value, " Millimint ") > 0 Then c.Formula = Replace(c.Value, " Millimint ", "Lt.Green")
If InStr(c.Value, " Mineral ") > 0 Then c.Formula = Replace(c.Value, " Mineral ", "Olive")
If InStr(c.Value, " Mint ") > 0 Then c.Formula = Replace(c.Value, " Mint ", "Lt.Green")
If InStr(c.Value, " Modpods ") > 0 Then c.Formula = Replace(c.Value, " Modpods ", "Print")
If InStr(c.Value, " Moss ") > 0 Then c.Formula = Replace(c.Value, " Moss ", "Olive")
If InStr(c.Value, " Multi ") > 0 Then c.Formula = Replace(c.Value, " Multi ", "Multi-Print")
If InStr(c.Value, " Mystic ") > 0 Then c.Formula = Replace(c.Value, " Mystic ", "Multi-Print")
If InStr(c.Value, " Nickle ") > 0 Then c.Formula = Replace(c.Value, " Nickle ", "Lt.Grey")
If InStr(c.Value, " Nvygry ") > 0 Then c.Formula = Replace(c.Value, " Nvygry ", "Blue+")
If InStr(c.Value, " Nvywht ") > 0 Then c.Formula = Replace(c.Value, " Nvywht ", "Blue+")
If InStr(c.Value, " Oak ") > 0 Then c.Formula = Replace(c.Value, " Oak ", "Wood")
If InStr(c.Value, " Og ") > 0 Then c.Formula = Replace(c.Value, " Og ", "Orange")
If InStr(c.Value, " Olive ") > 0 Then c.Formula = Replace(c.Value, " Olive ", "Dk.Green")
If InStr(c.Value, " Owhite ") > 0 Then c.Formula = Replace(c.Value, " Owhite ", "Off-White")
If InStr(c.Value, " Paint ") > 0 Then c.Formula = Replace(c.Value, " Paint ", "Print")
If InStr(c.Value, " Paulownia ") > 0 Then c.Formula = Replace(c.Value, " Paulownia ", "Wood")
If InStr(c.Value, " Persimmon ") > 0 Then c.Formula = Replace(c.Value, " Persimmon ", "Lt.Orange")
If InStr(c.Value, " Petrol ") > 0 Then c.Formula = Replace(c.Value, " Petrol ", "Black")
If InStr(c.Value, " Phantom ") > 0 Then c.Formula = Replace(c.Value, " Phantom ", "Dk.Grey")
If InStr(c.Value, " Plaid ") > 0 Then c.Formula = Replace(c.Value, " Plaid ", "Print")
If InStr(c.Value, " Plum ") > 0 Then c.Formula = Replace(c.Value, " Plum ", "Dk.Purple")
If InStr(c.Value, " Polished ") > 0 Then c.Formula = Replace(c.Value, " Polished ", "Metal")
If InStr(c.Value, " Poppy ") > 0 Then c.Formula = Replace(c.Value, " Poppy ", "Print")
If InStr(c.Value, " Powder_Blue ") > 0 Then c.Formula = Replace(c.Value, " Powder_Blue ", "Lt.Blue")
If InStr(c.Value, " Putty ") > 0 Then c.Formula = Replace(c.Value, " Putty ", "Grey")
If InStr(c.Value, " Raven ") > 0 Then c.Formula = Replace(c.Value, " Raven ", "Wood")
If InStr(c.Value, " Raw ") > 0 Then c.Formula = Replace(c.Value, " Raw ", "Metal")
If InStr(c.Value, " Reptile ") > 0 Then c.Formula = Replace(c.Value, " Reptile ", "Print")
If InStr(c.Value, " Roast_Brown ") > 0 Then c.Formula = Replace(c.Value, " Roast_Brown ", "Brown")
If InStr(c.Value, " Rock_Salt ") > 0 Then c.Formula = Replace(c.Value, " Rock_Salt ", "White")
If InStr(c.Value, " Royal ") > 0 Then c.Formula = Replace(c.Value, " Royal ", "Blue")
If InStr(c.Value, " Rust ") > 0 Then c.Formula = Replace(c.Value, " Rust ", "Dk.Orange")
If InStr(c.Value, " Rwb ") > 0 Then c.Formula = Replace(c.Value, " Rwb ", "Blue")
If InStr(c.Value, " Saddle ") > 0 Then c.Formula = Replace(c.Value, " Saddle ", "Brown")
If InStr(c.Value, " Sage ") > 0 Then c.Formula = Replace(c.Value, " Sage ", "Lt.Green")
If InStr(c.Value, " Sahara ") > 0 Then c.Formula = Replace(c.Value, " Sahara ", "Brown")
If InStr(c.Value, " Salt ") > 0 Then c.Formula = Replace(c.Value, " Salt ", "White")
If InStr(c.Value, " Sand ") > 0 Then c.Formula = Replace(c.Value, " Sand ", "Tan")
If InStr(c.Value, " Sea ") > 0 Then c.Formula = Replace(c.Value, " Sea ", "Lt.Green")
If InStr(c.Value, " Silver ") > 0 Then c.Formula = Replace(c.Value, " Silver ", "Grey")
If InStr(c.Value, " Sky ") > 0 Then c.Formula = Replace(c.Value, " Sky ", "Lt.Blue")
If InStr(c.Value, " Slate ") > 0 Then c.Formula = Replace(c.Value, " Slate ", "Dk.Grey")
If InStr(c.Value, " Slateblue ") > 0 Then c.Formula = Replace(c.Value, " Slateblue ", "Grey+")
If InStr(c.Value, " Smoke ") > 0 Then c.Formula = Replace(c.Value, " Smoke ", "Grey")
If InStr(c.Value, " Stone ") > 0 Then c.Formula = Replace(c.Value, " Stone ", "Lt.Tan")
If InStr(c.Value, " Stp ") > 0 Then c.Formula = Replace(c.Value, " Stp ", "Stripe")
If InStr(c.Value, " Striped ") > 0 Then c.Formula = Replace(c.Value, " Striped ", "Stripe")
If InStr(c.Value, " Stripes ") > 0 Then c.Formula = Replace(c.Value, " Stripes ", "Print")
If InStr(c.Value, " Taupe ") > 0 Then c.Formula = Replace(c.Value, " Taupe ", "Lt.Grey")
If InStr(c.Value, " Tbg ") > 0 Then c.Formula = Replace(c.Value, " Tbg ", "Denim-Wash")
If InStr(c.Value, " Tea ") > 0 Then c.Formula = Replace(c.Value, " Tea ", "Lt.Green")
If InStr(c.Value, " Test Pattern ") > 0 Then c.Formula = Replace(c.Value, " Test Pattern ", "Print")
If InStr(c.Value, " Tobacco ") > 0 Then c.Formula = Replace(c.Value, " Tobacco ", "Brown")
If InStr(c.Value, " Tok ") > 0 Then c.Formula = Replace(c.Value, " Tok ", "Tokyo")
If InStr(c.Value, " Tree ") > 0 Then c.Formula = Replace(c.Value, " Tree ", "Print")
If InStr(c.Value, " Treez ") > 0 Then c.Formula = Replace(c.Value, " Treez ", "Print")
If InStr(c.Value, " Twill ") > 0 Then c.Formula = Replace(c.Value, " Twill ", "Dk.Khaki")
If InStr(c.Value, " Vin ") > 0 Then c.Formula = Replace(c.Value, " Vin ", "Denim-Wash")
If InStr(c.Value, " Vintage ") > 0 Then c.Formula = Replace(c.Value, " Vintage ", "Denim-Wash")
If InStr(c.Value, " Walnut ") > 0 Then c.Formula = Replace(c.Value, " Walnut ", "Brown")
If InStr(c.Value, " Wheat ") > 0 Then c.Formula = Replace(c.Value, " Wheat ", "Lt.Yellow")
If InStr(c.Value, " Wine ") > 0 Then c.Formula = Replace(c.Value, " Wine ", "Dk.Red")
If InStr(c.Value, " Winterfresh ") > 0 Then c.Formula = Replace(c.Value, " Winterfresh ", "Lt.Green")
If InStr(c.Value, " Wood ") > 0 Then c.Formula = Replace(c.Value, " Wood ", "Print")
If InStr(c.Value, " Woodland ") > 0 Then c.Formula = Replace(c.Value, " Woodland ", "Print")
If InStr(c.Value, " B/C/N/B ") > 0 Then c.Formula = Replace(c.Value, " B/C/N/B ", "")
If InStr(c.Value, " B/Dk.Grey/Grey ") > 0 Then c.Formula = Replace(c.Value, " B/Dk.Grey/Grey ", "")
If InStr(c.Value, " B/S/C/B ") > 0 Then c.Formula = Replace(c.Value, " B/S/C/B ", "")
If InStr(c.Value, " B/W/B ") > 0 Then c.Formula = Replace(c.Value, " B/W/B ", "")
If InStr(c.Value, " B/W/R ") > 0 Then c.Formula = Replace(c.Value, " B/W/R ", "")
If InStr(c.Value, " B4Bc/Mirror/Rose ") > 0 Then c.Formula = Replace(c.Value, " B4Bc/Mirror/Rose ", "")
If InStr(c.Value, " Bkx ") > 0 Then c.Formula = Replace(c.Value, " Bkx ", "")
If InStr(c.Value, " Blueberry/Black ") > 0 Then c.Formula = Replace(c.Value, " Blueberry/Black ", "")
If InStr(c.Value, " Bwb ") > 0 Then c.Formula = Replace(c.Value, " Bwb ", "")
If InStr(c.Value, " Bwy ") > 0 Then c.Formula = Replace(c.Value, " Bwy ", "")
If InStr(c.Value, " Cha ") > 0 Then c.Formula = Replace(c.Value, " Cha ", "Dk.Grey")
If InStr(c.Value, " Chg ") > 0 Then c.Formula = Replace(c.Value, " Chg ", "Dk.Grey")
If InStr(c.Value, " Color ") > 0 Then c.Formula = Replace(c.Value, " Color ", "")
If InStr(c.Value, " Colors ") > 0 Then c.Formula = Replace(c.Value, " Colors ", "")
If InStr(c.Value, " Dcm ") > 0 Then c.Formula = Replace(c.Value, " Dcm ", "")
If InStr(c.Value, " Dk ") > 0 Then c.Formula = Replace(c.Value, " Dk ", "")
If InStr(c.Value, " Dk/Olive/Black ") > 0 Then c.Formula = Replace(c.Value, " Dk/Olive/Black ", "")
If InStr(c.Value, " Dkch ") > 0 Then c.Formula = Replace(c.Value, " Dkch ", "")
If InStr(c.Value, " Dks ") > 0 Then c.Formula = Replace(c.Value, " Dks ", "")
If InStr(c.Value, " Esp/Black ") > 0 Then c.Formula = Replace(c.Value, " Esp/Black ", "")
If InStr(c.Value, " Fade ") > 0 Then c.Formula = Replace(c.Value, " Fade ", "")
If InStr(c.Value, " Fd ") > 0 Then c.Formula = Replace(c.Value, " Fd ", "")
If InStr(c.Value, " Fst ") > 0 Then c.Formula = Replace(c.Value, " Fst ", "")
If InStr(c.Value, " Fsw ") > 0 Then c.Formula = Replace(c.Value, " Fsw ", "")
If InStr(c.Value, " Gloss ") > 0 Then c.Formula = Replace(c.Value, " Gloss ", "")
If InStr(c.Value, " Hrd ") > 0 Then c.Formula = Replace(c.Value, " Hrd ", "")
If InStr(c.Value, " Lns ") > 0 Then c.Formula = Replace(c.Value, " Lns ", "")
If InStr(c.Value, " Lt.Blu/Navy ") > 0 Then c.Formula = Replace(c.Value, " Lt.Blu/Navy ", "")
If InStr(c.Value, " Lt/Black ") > 0 Then c.Formula = Replace(c.Value, " Lt/Black ", "")
If InStr(c.Value, " N/N/G ") > 0 Then c.Formula = Replace(c.Value, " N/N/G ", "")
If InStr(c.Value, " Opal/Ion ") > 0 Then c.Formula = Replace(c.Value, " Opal/Ion ", "")
If InStr(c.Value, " Pf ") > 0 Then c.Formula = Replace(c.Value, " Pf ", "")
If InStr(c.Value, " Plt/Bronze/Silver ") > 0 Then c.Formula = Replace(c.Value, " Plt/Bronze/Silver ", "")
If InStr(c.Value, " S/Black ") > 0 Then c.Formula = Replace(c.Value, " S/Black ", "")
If InStr(c.Value, " Strp./True ") > 0 Then c.Formula = Replace(c.Value, " Strp./True ", "")
If InStr(c.Value, " Tin ") > 0 Then c.Formula = Replace(c.Value, " Tin ", "")
Next c
End With
For Each c In Range("N4:N" & LRowf)
c.Value = Application.WorksheetFunction.Trim(c.Value)
Next c

' For Each c In rng
' c.Value = Application.WorksheetFunction.Trim(c.Value)
' Next c
Application.ActiveSheet.Calculate
Application.ScreenUpdating = True

End Sub

Norie
09-06-2007, 11:33 AM
Doug

I'm really not surprised this has happened, that's 562 (unneeded?) If statements.

Have you never tried any of the suggestions made for different methods of how to do this?:)

I can't recall them all but I'm sure arrays, ranges and find/replace have been mentioned, probably loops too.

I would suggest the first thing you do is put a list of what to find and what to replace it with somewhere. eg a worksheet

mdmackillop
09-06-2007, 04:01 PM
For Each c In rng
Set d = Sheets("Colours").Columns(1).Find(c, lookat:=xlWhole)
If Not d Is Nothing Then c = d.Offset(, 1)
Next c

YellowLabPro
09-06-2007, 04:12 PM
Malcolm,
that is a nice solution, however, you keep spelling Color wrong....:devil2:

Norie
09-06-2007, 09:19 PM
Doug

Malcolm could very well be spelling colour incorrectly, but he actually isn't.:)

That's how we spell it round this way of the world.:)

mdmackillop
09-07-2007, 12:20 AM
Malcolm could very well be spelling colour incorrectly, but he actually isn't.
I'm sure Doug knows that; in this part of the world we would class his comment as "humour". (I wonder how the ex-colonials spell that)

YellowLabPro
09-07-2007, 01:50 AM
:whip YeeeeeeeeeeeHaaaaaawwwwwwwww :giggle

unmarkedhelicopter
09-07-2007, 02:12 AM
It is a strange thing, the "ENGLISH" language, that some practitioners of it assume that the occupants of the 'green and pleasant land' can not spell correctly in their own language. (Though anyone who has ever come across Ross (from JMT etc.) may well have a case !)
English is in fact a bastardisation of many languages (we steal good words from all over the world) we have latin words, greek words, indian words, french words and even some german words (the base language is ALL german from the Angles, Jutes and Saxons). But the Celts and Scandinavians also had some input.
I think I'm right that "colour" comes from the french word "couleur" so in that case it would be correct to say that mdmackillop is just less wrong than yellowlabpro is ;) France led the last sucessful invasion of the British mainland in 1066 (that's 941 years ago, for those of you without a calculator) and we still have very many french words and phrases like: respond, cul de sac, au fait, blond (male), blonde (female), critique (even yellowlabpro knows that one), en masse, fait accompli, finale, repartee, RSVP, souvenir etc. (I'm always pleased when someone french is surprised to discover that an english translation of 'bon appetit' is 'bon appetit') in fact some 10,000 french words were adopted by the english, some 7,000 or so are still in use. Our surnames are due to the French and it is estimated that an english speaker (I don't know if yellowlabpro qualifies ;) ) who has not studied french, knows approximately 15,000 french words.

The French (from France !) used to (and may still have) an official body for making up new french words to substitute for new 'foreign' words that they did not wish to enter the language (e.g. la weekend) (The French Canadians are far more pragmatic about this). Now I would consider this a deliberate attempt to obfuscate communication, and an extreme example of the simple case as shown in "color". ;)

How was that critique ????

mdmackillop
09-07-2007, 05:49 AM
How was that critique ????
Magnifique !

unmarkedhelicopter
09-07-2007, 07:23 AM
tr?s bien ! (takes a ... :bow:)

mdmackillop
09-07-2007, 07:39 AM
bough?

unmarkedhelicopter
09-07-2007, 07:52 AM
No, I did not fall from a tree ..... !!!!!!

YellowLabPro
09-07-2007, 07:55 AM
I would love to hear the Scottish fellow here speak French... that would be a treat.....:clap:

Norie
09-07-2007, 08:22 AM
Allez le bleus!!!

rory
09-07-2007, 08:30 AM
Les Bleus, surely? :)

Norie
09-07-2007, 08:35 AM
That's what you get for trying to read the paper with the sun in your eyes. :oops:

rory
09-07-2007, 08:39 AM
As opposed to trying to read the Sun with the paper in your eyes? :p

Brandtrock
09-07-2007, 11:29 AM
My favorite (for Doug and his ilk) or favourite (for Malcom and his) French word commonly used in English: restaurant. Not particular about what kind, fast food, fine dining, ethnic menus, they're all good. Well, not all of them. I've eaten some really poor food at some nice places and gotten some wonderful food from places that scare health inspectors away.

Given YLP's assertion on the spelling of color(colour) combined with his real name and his handle, we observe that Doug the speller of color may well need to be named Dog or start spelling it colour. :dunno:rofl:

Au revoir,

Norie
09-07-2007, 12:28 PM
Well that might actually be DogStrod if I recall correctly Doug's moniker from another forum.:bug: :rotlaugh:

:turnip: :turnip::turnip::turnip::turnip:

unmarkedhelicopter
09-07-2007, 04:00 PM
Generally I'd have to say my favourite word is 'beer' or maybe 'wine' I know 'wine' is not french though it 'may derive from vin (vine - wine, so may well be french after all) god knows where 'beer' comes from, but I like to think 'from the gods'.

rory
09-08-2007, 02:52 AM
Well, we seem to have put the mockers on 'Les Bleus' quite effectively!
'Wine' I would guess originates from the Latin 'Vinum'; 'beer' possibly from the Dutch/German 'bier', or maybe some old Viking word.

mdmackillop
09-08-2007, 03:57 AM
Well, we seem to have put the mockers on 'Les Bleus' quite effectively!
I wasn't aware the Les was a member here. Maybe just as well that he has been mockered.