Public Function VolatileName(CompanyName As String, Optional UsedForLookup As Boolean = False)
    Dim SimplifiedName As String

    'Look Only in the middle
    SimplifiedName = Replace(CompanyName, " AND ", " & ")

    'Start Looking anywhere
    SimplifiedName = " " & UCase(SimplifiedName) & " "

    SimplifiedName = Replace(SimplifiedName, "/", " ")
    SimplifiedName = Replace(SimplifiedName, "'S", "")
    SimplifiedName = Replace(SimplifiedName, "'", "")
    SimplifiedName = Replace(SimplifiedName, ",", " ")
    SimplifiedName = Replace(SimplifiedName, ".", "")
    SimplifiedName = Replace(SimplifiedName, "!", "")
    SimplifiedName = Replace(SimplifiedName, ":", " ")
    SimplifiedName = Replace(SimplifiedName, "-", " ")
    SimplifiedName = Replace(SimplifiedName, " CO ", " ")
    SimplifiedName = Replace(SimplifiedName, " COS ", " ")
    SimplifiedName = Replace(SimplifiedName, " CORP ", " ")
    SimplifiedName = Replace(SimplifiedName, " INC ", " ")
    SimplifiedName = Replace(SimplifiedName, " LTD ", " ")
    SimplifiedName = Replace(SimplifiedName, " GRP ", " ")
    SimplifiedName = Replace(SimplifiedName, " DEL ", " ")
    SimplifiedName = Replace(SimplifiedName, " HLDG ", " ")
    SimplifiedName = Replace(SimplifiedName, " HLDGS ", " ")
    SimplifiedName = Replace(SimplifiedName, " OF ", " ")
    SimplifiedName = Replace(SimplifiedName, " THE ", " ")
    SimplifiedName = Replace(SimplifiedName, " COMPANY ", " ")
    SimplifiedName = Replace(SimplifiedName, " COMPANIES ", " ")
    SimplifiedName = Replace(SimplifiedName, " CORPORATION ", " ")
    SimplifiedName = Replace(SimplifiedName, " INCORPORATED ", " ")
    SimplifiedName = Replace(SimplifiedName, " LIMITED ", " ")
    SimplifiedName = Replace(SimplifiedName, " GROUP ", " ")
    SimplifiedName = Replace(SimplifiedName, " HOLDING ", " ")
    SimplifiedName = Replace(SimplifiedName, " HOLDINGS ", " ")
    SimplifiedName = Replace(SimplifiedName, " PLC ", " ")
    SimplifiedName = Replace(SimplifiedName, " LP ", " ")
    SimplifiedName = Replace(SimplifiedName, " SA ", " ")
    SimplifiedName = Replace(SimplifiedName, " NV ", " ")
    SimplifiedName = Replace(SimplifiedName, " AG ", " ")
    SimplifiedName = Replace(SimplifiedName, " OAO ", " ")
    SimplifiedName = Replace(SimplifiedName, " OYJ ", " ")
    SimplifiedName = Replace(SimplifiedName, " COR ", " ")

    SimplifiedName = Replace(SimplifiedName, " P L C ", " ")
    SimplifiedName = Replace(SimplifiedName, " L P ", " ")
    SimplifiedName = Replace(SimplifiedName, " S A ", " ")
    SimplifiedName = Replace(SimplifiedName, " N V ", " ")
    SimplifiedName = Replace(SimplifiedName, " A G ", " ")

 'These ones are just for 13f's
    SimplifiedName = Replace(SimplifiedName, " VCT ", " VENTURE CAPITAL TRUST ")
    SimplifiedName = Replace(SimplifiedName, " BANCORP ", " BANCORPORATION ")
    SimplifiedName = Replace(SimplifiedName, " INTL ", " INTERNATIONAL ")
    SimplifiedName = Replace(SimplifiedName, " NAT ", " NATIONAL ")
    SimplifiedName = Replace(SimplifiedName, " NATL ", " NATIONAL ")
    SimplifiedName = Replace(SimplifiedName, " FINL ", " FINANCIAL ")
    SimplifiedName = Replace(SimplifiedName, " INVT ", " INVESTMENT ")
    SimplifiedName = Replace(SimplifiedName, " INVS ", " INVESTORS ")
    SimplifiedName = Replace(SimplifiedName, " STL ", " STEEL ")
    SimplifiedName = Replace(SimplifiedName, " CENTY ", " CENTURY ")
    SimplifiedName = Replace(SimplifiedName, " SVCS ", " SERVICES ")
    SimplifiedName = Replace(SimplifiedName, " INDS ", " INDUSTRY ")
    SimplifiedName = Replace(SimplifiedName, " PPTYS ", " PROPERTY ")
    SimplifiedName = Replace(SimplifiedName, " PPTY ", " PROPERTY ")
    SimplifiedName = Replace(SimplifiedName, " CAP ", " CAPITAL ")
    SimplifiedName = Replace(SimplifiedName, " MGMT ", " MANAGEMENT ")
    SimplifiedName = Replace(SimplifiedName, " RES ", " RESOURCES ")
    SimplifiedName = Replace(SimplifiedName, " CHEM ", " CHEMICAL ")
    SimplifiedName = Replace(SimplifiedName, " CHEMS ", " CHEMICALS ")
    SimplifiedName = Replace(SimplifiedName, " LABS ", " LABORATORY ")
    SimplifiedName = Replace(SimplifiedName, " PRODS ", " PRODUCTS ")



    SimplifiedName = Replace(SimplifiedName, " PIES ", "[[The Great Pie Exception]]")
        'More exceptions can go here

    SimplifiedName = Replace(SimplifiedName, "IES ", "Y ")

    SimplifiedName = Replace(SimplifiedName, "[[The Great Pie Exception]]", " PIES ")


    'remove all double Spaces
    Do While InStr(1, SimplifiedName, Chr(32) & Chr(32)) > 0
        Let SimplifiedName = Replace(SimplifiedName, Chr(32) & Chr(32), Chr(32))
    Loop

    'Look Only at the End
    If Right(SimplifiedName, 3) = " AS" Then
        SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)
    End If
    If Right(SimplifiedName, 3) = " AB" Then
        SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)
    End If
     If Right(SimplifiedName, 3) = " BV" Then
        SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)
    End If
    If Right(SimplifiedName, 4) = " NEW" Then
        SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 4)
    End If
    If Right(SimplifiedName, 3) = " IN" Then
        SimplifiedName = Left(SimplifiedName, Len(SimplifiedName) - 3)
    End If

    If SimplifiedName = "" And Not UsedForLookup Then
        SimplifiedName = "Do not find"
    End If

    VolatileName = SimplifiedName
End Function