String manipulation with exceptions

Post the loop that you are currently using to truncate after the hyphen and we can give suggestions to modify your existing code to accomodate your exceptions?

Here is the code.

Private Sub RemoveSkuIndexes()

' *********************************************************************
' Removes all indexes leaving base Sku
' *********************************************************************

Dim LastRow As Integer
Dim Pos As Integer
Dim SKU As String
Dim TrimSKU as String
    
    ' Find lastrow in worksheet
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    ' Cylce through each cell in column A until lastrow
    For Each i In Range("A2:A" & LastRow)
        
        SKU = i.Value
        
        ' Returns position of first hyphen from the left
        Pos = InStr(1, SKU, "-", vbTextCompare)
        
        ' Returns string to the left of the hyphen
        If Pos > 0 Then
            TrimSKU = Left(Text, Pos - 1)
        Else
            TrimSKU = SKU
        End If
        
        ' Overwrites cell content with truncated text
        i.Value = TrimSKU
    
    Next

End Sub

In this If statement you can test for your exceptions and then NOT trim your SKU accordingly.

        If Pos > 0 Then
          If SKU <> "AU9929-ASST" then
            TrimSKU = Left(Text, Pos - 1)
          End If
        Else

You will need to add a check for each of your exceptions.

If SKU <> "AU9929-ASST" or SKU <> "Exception2" or SKU <> "Exception3" Then

which can get cumbersome as your number of excpetions increases. You may want to switch to using a Seclect Case statement to make this a little easier to manage as your exceptions change, etc.

HTH

Ahhh. Select case. I had forgotten about that guy. I knew there was something better than a 300 line if statement but I couldn't think of it. Thanks.