Consulting

Page 1 of 2 1 2 LastLast
Results 1 to 20 of 22

Thread: Solved: Procedure Too large to complete message.

  1. 09-06-2007, 10:32 AM #1
    YellowLabPro
    YellowLabPro is offline
    VBAX Master YellowLabPro's Avatar
    Joined
    May 2006
    Posts
    1,216
    Location

    Solved: Procedure Too large to complete message.

    I knew this day was coming.... 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.... with your critique

    [VBA]
    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" & LRow)
    ''For Each c In rng
    ''c = c.Value & " "
    ''
    ''Next c
    ''End With
    'For Each c In Range("D4" & 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
    [/VBA]
    my site: www.ecboardco.com
    was built w/ a majority of the assistance from the board members here... thanks VBAX.

    Just because I see something, doesn't mean that what's actually happening is what I see.

    You don't get from 0-90 by standing still!
    Reply With Quote Reply With Quote
  2. 09-06-2007, 11:33 AM #2
    Norie
    Norie is offline
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    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
    Reply With Quote Reply With Quote
  3. 09-06-2007, 04:01 PM #3
    mdmackillop
    mdmackillop is offline
    Administrator
    VP-Knowledge Base     VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    [VBA] 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
    [/VBA]
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.

    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'
    Reply With Quote Reply With Quote
  4. 09-06-2007, 04:12 PM #4
    YellowLabPro
    YellowLabPro is offline
    VBAX Master YellowLabPro's Avatar
    Joined
    May 2006
    Posts
    1,216
    Location
    Malcolm,
    that is a nice solution, however, you keep spelling Color wrong....
    my site: www.ecboardco.com
    was built w/ a majority of the assistance from the board members here... thanks VBAX.

    Just because I see something, doesn't mean that what's actually happening is what I see.

    You don't get from 0-90 by standing still!
    Reply With Quote Reply With Quote
  5. 09-06-2007, 09:19 PM #5
    Norie
    Norie is offline
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    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.
    Last edited by Norie; 09-06-2007 at 09:37 PM.
    Reply With Quote Reply With Quote
  6. 09-07-2007, 12:20 AM #6
    mdmackillop
    mdmackillop is offline
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    Quote Originally Posted by Norie
    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)
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.

    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'
    Reply With Quote Reply With Quote
  7. 09-07-2007, 01:50 AM #7
    YellowLabPro
    YellowLabPro is offline
    VBAX Master YellowLabPro's Avatar
    Joined
    May 2006
    Posts
    1,216
    Location
    YeeeeeeeeeeeHaaaaaawwwwwwwww
    my site: www.ecboardco.com
    was built w/ a majority of the assistance from the board members here... thanks VBAX.

    Just because I see something, doesn't mean that what's actually happening is what I see.

    You don't get from 0-90 by standing still!
    Reply With Quote Reply With Quote
  8. 09-07-2007, 02:12 AM #8
    unmarkedhelicopter
    unmarkedhelicopter is offline
    VBAX Mentor unmarkedhelicopter's Avatar
    Joined
    Apr 2006
    Posts
    376
    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 ????
    Last edited by unmarkedhelicopter; 09-07-2007 at 07:30 AM.
    2+2=9 ... (My Arithmetic Is Mental)
    Reply With Quote Reply With Quote
  9. 09-07-2007, 05:49 AM #9
    mdmackillop
    mdmackillop is offline
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    Quote Originally Posted by unmarkedhelicopter
    How was that critique ????
    Magnifique !
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.

    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'
    Reply With Quote Reply With Quote
  10. 09-07-2007, 07:23 AM #10
    unmarkedhelicopter
    unmarkedhelicopter is offline
    VBAX Mentor unmarkedhelicopter's Avatar
    Joined
    Apr 2006
    Posts
    376
    tr?s bien ! (takes a ... )
    2+2=9 ... (My Arithmetic Is Mental)
    Reply With Quote Reply With Quote
  11. 09-07-2007, 07:39 AM #11
    mdmackillop
    mdmackillop is offline
    Administrator
    VP-Knowledge Base VBAX Grand Master mdmackillop's Avatar
    Joined
    May 2004
    Location
    Scotland
    Posts
    14,489
    Location
    bough?
    MVP (Excel 2008-2010)

    Post a workbook with sample data and layout if you want a quicker solution.

    To help indent your macros try Smart Indent

    Please remember to mark threads 'Solved'
    Reply With Quote Reply With Quote
  12. 09-07-2007, 07:52 AM #12
    unmarkedhelicopter
    unmarkedhelicopter is offline
    VBAX Mentor unmarkedhelicopter's Avatar
    Joined
    Apr 2006
    Posts
    376
    No, I did not fall from a tree ..... !!!!!!
    2+2=9 ... (My Arithmetic Is Mental)
    Reply With Quote Reply With Quote
  13. 09-07-2007, 07:55 AM #13
    YellowLabPro
    YellowLabPro is offline
    VBAX Master YellowLabPro's Avatar
    Joined
    May 2006
    Posts
    1,216
    Location
    I would love to hear the Scottish fellow here speak French... that would be a treat.....
    my site: www.ecboardco.com
    was built w/ a majority of the assistance from the board members here... thanks VBAX.

    Just because I see something, doesn't mean that what's actually happening is what I see.

    You don't get from 0-90 by standing still!
    Reply With Quote Reply With Quote
  14. 09-07-2007, 08:22 AM #14
    Norie
    Norie is offline
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    Allez le bleus!!!
    Reply With Quote Reply With Quote
  15. 09-07-2007, 08:30 AM #15
    rory
    rory is offline
    VBAX Master
    Joined
    Jun 2007
    Location
    East Sussex
    Posts
    1,110
    Location
    Les Bleus, surely?
    Regards,
    Rory

    Microsoft MVP - Excel
    Reply With Quote Reply With Quote
  16. 09-07-2007, 08:35 AM #16
    Norie
    Norie is offline
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    That's what you get for trying to read the paper with the sun in your eyes.
    Reply With Quote Reply With Quote
  17. 09-07-2007, 08:39 AM #17
    rory
    rory is offline
    VBAX Master
    Joined
    Jun 2007
    Location
    East Sussex
    Posts
    1,110
    Location
    As opposed to trying to read the Sun with the paper in your eyes?
    Regards,
    Rory

    Microsoft MVP - Excel
    Reply With Quote Reply With Quote
  18. 09-07-2007, 11:29 AM #18
    Brandtrock
    Brandtrock is offline
    VBAX Mentor Brandtrock's Avatar
    Joined
    Jun 2004
    Location
    Titonka, IA
    Posts
    399
    Location
    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.

    Au revoir,
    Brandtrock



    Reply With Quote Reply With Quote
  19. 09-07-2007, 12:28 PM #19
    Norie
    Norie is offline
    VBAX Master Norie's Avatar
    Joined
    Jan 2005
    Location
    Stirling, Scotland
    Posts
    1,831
    Location
    Well that might actually be DogStrod if I recall correctly Doug's moniker from another forum.

    Reply With Quote Reply With Quote
  20. 09-07-2007, 04:00 PM #20
    unmarkedhelicopter
    unmarkedhelicopter is offline
    VBAX Mentor unmarkedhelicopter's Avatar
    Joined
    Apr 2006
    Posts
    376
    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'.
    2+2=9 ... (My Arithmetic Is Mental)
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules