@NODESELECT RENAME TO="*" @script vbscript Option Explicit '=========================================================== ' BOOKCASE '=========================================================== ' BookCase by Penguinaka 7-15-11 (penguinaka@gmail.com) is ' eBook filename cleaner combined with titlecase. Its a ' a complete modification of TitleCasePlus 27-10-2010 & ' TitleCase by Steve Banham (tanis@dopus.com) 07-Apr-2007 ' Modified by Leo Davidson (www.pretentiousname.com) ' And fred added some other options '=========================================================== ' General Options '=========================================================== dim fExtLCase dim fDot dim fComSpace dim fUnderscore dim fOddChars dim fScore1 dim fScore2 dim fNumSpace dim fSwapLnFn dim fAnd1 dim fAnd2 dim fBrakSpace dim fBracket dim fSuperRemove dim fSeriesBrak dim fDelRnd dim fRndToSqr dim fSqrToRnd dim fVersionFix dim fStripUnWant dim fMultiSpaces dim fStripSpaces dim fVersion fExtLCase = True ' Make extension lower case fDot = True 'Dots to spaces except in numbers fComSpace = True 'Put a space after comma fUnderscore = True 'Replace "_" with spaces fOddChars = True 'Replace "%20" with spaces fScore1 = True 'Replace"--" with "-" fScore2 = True 'Add space before and after a score "-" fNumSpace = True 'Add spaces between numbers and letters such as "v2.8.8example" results "v2.8.8 example" and "34copies" results "34 copies" but keep "323x56x76" fSwapLnFn = True 'Swap Lastname,Firstname all Types Including Multiples fAnd1 = True 'Replace " and " with " & " *note of fAnd1 is True then make fAnd2 False fAnd2 = False 'Replace " & " with " and " *note if fAnd2 is True then make fAnd1 False fBrakSpace = True 'Put a space around brackets fBracket = True 'Replace "[]" with "()" and "{}" with "()" fSuperRemove = True 'Remove and fix various junk in names fSeriesBrak = True 'Replace "- (" with "- " and ") -" with " -" fRndToSqr = True 'Replace Rounded Brackets around Version Info with Square fDelRnd = True 'Delete Rounded Brackets and Everything Contained Inside fSqrToRnd = True 'Replace Square Brackets with Rounded Brackets fVersionFix = True 'Fixes mistakes in with Version Info fStripUnWant = True 'Strips Unwanted Characters and Symbols fMultiSpaces = True 'Replaces Multiple spaces with Single Space fStripSpaces = True 'Strip Both Leading/trailing Spaces fVersion = True 'Remove [version]1.0.0.8 (aka deletes "v." or "v") '=========================================================== ' TitleCase Options '=========================================================== ' fTitleCase MUST be True for the five options in this ' section to work. The Fcap's are Independent '=========================================================== dim fTitleCase dim fParCap dim fDashCap dim fFullStopCap dim fFirstNonNum dim fCapMic dim fCapMagic1 dim fCapMagic2 fTitleCase = True ' Convert to true titlecase fParCap = False ' Capitalise after parenthesis fDashCap = True ' Capitalise after a dash fFullStopCap = True ' Capitalise after a full stop fFirstNonNum = True ' Capitalise first non-numeric fCapMic = True 'Fix Captilization with McD and O'B type Names fCapMagic1 = True 'Pushes Initials together like George R R Martin to George RR Martin fCapMagic2 = True 'Fixes Caps in Initials that are together like George Rr Martin to George RR Martin '=========================================================== Function Rename_GetNewName ( strFileName, strFullPath, fIsFolder, strOldName, ByRef strNewName ) dim strExt dim iOldLength dim iNewLength dim strNameArray dim strTmpWord dim strTmpName dim re dim x dim j dim i 'Create a RegExp object. See http://msdn2.microsoft.com/en-us/library/ms974570.aspx Set re = new RegExp re.IgnoreCase = True ' Case-insensitive matching. re.Global = True ' All matches will be replaced, not just the first match. 'Strip the filename extension for now if fIsFolder = False then if InStr(strNewName, ".") then strExt = Right(strNewName, Len(strNewName)-(InStrRev(strNewName, ".")-1)) strNewName = Left(strNewName, InStrRev(strNewName, ".")-1) ' Convert extension to lowercase while we're at it if fExtLCase = True then strExt = LCase(strExt) end if else strExt = "" end if end if '=========================================================== 'Dots to spaces except in numbers if fDot = True then ' from "test.2.7" to "test 2.7" re.Pattern = "(\D)\s*\.|\.\s*(\D)" strNewName = re.Replace(strNewName, "$1 $2") end if 'Put a space after comma if fComSpace = True then strNewName = Replace(strNewName, ",", ", ") end if 'Replace "_" with spaces if fUnderscore = True then strNewName = Replace(strNewName, "_", " ") end if 'Replace "%20" with spaces if fOddChars = True then strNewName = Replace(strNewName, "%20"," ") end if 'Replace"--" with "-" if fScore1 = True then iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) strNewName = Replace(strNewName, "--","-") strNewName = Replace(strNewName, "- -","-") iNewLength = len(strNewName) Loop end if 'Add space before and after a score "-" if fScore2 = True then iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) strNewName = Replace(strNewName,"-"," - ") iNewLength = len(strNewName) Loop end if 'Add spaces between numbers and letters such as "v2.8.8example" 'Results "v2.8.8 example" and "34copies" results "34 copies" and "test1" results "test 1" 'Keeping "06x01" form instead of resulting "06 x 01" and "mp3" if fNumSpace = True then ' "34test" to "34 test" excluding "fps", "kbs" etc. re.Pattern = "(\d+)((?!fps|kbs|x\d+|gp|\d+|\s+|\.|,))" strNewName = re.Replace(strNewName, "$1 $2") ' "test1" to "test 1" re.Pattern = "([a-z])(\d+)" strNewName = re.Replace(strNewName, "$1 $2") ' exclude "06x01" from resulting "06x 01" etc. iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) re.Pattern = "(\d+x)\s(\d+)" strNewName = re.Replace(strNewName, "$1$2") iNewLength = len(strNewName) Loop ' exclude "mp3" from resulting "mp 3" etc. re.Pattern = "(\s+mp|\s+gp)\s(\d+)" strNewName = re.Replace(strNewName, "$1$2") end if 'Swap Lastname,Firstname all Types Including Multiples if fSwapLnFn = True then re.Pattern = "^(\w+), *([\w \.]+)[ ]+-[ ]*(.*)" strNewName = re.Replace(strNewName, "$2 $1 - $3") re.Pattern = "([^,]*), ([^&]*)& ([^,]*),([^-]*)-(.*)" strNewName = re.Replace(strNewName, "$2$1 and$4$3 -$5") re.Pattern = "([^,]*), ([^&]*)and ([^,]*),([^-]*)-(.*)" strNewName = re.Replace(strNewName, "$2$1 and$4$3 -$5") end if 'Replace " and " with " & " if fAnd1 = True then strNewName = Replace(strNewName, " and ", " & ") end if 'Replace " & " with " and " if fAnd2 = True then strNewName = Replace(strNewName, " & ", " and ") end if 'Put a space around brackets if fBrakSpace = True then strNewName = Replace(strNewName, "(", " (") strNewName = Replace(strNewName, ")", ") ") strNewName = Replace(strNewName, "[", " [") strNewName = Replace(strNewName, "]", "] ") strNewName = Replace(strNewName, "{", " {") strNewName = Replace(strNewName, "}", "} ") end if ' Remove all multiple spaces if fMultiSpaces = True then iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) strNewName = Replace(strNewName," "," ") strNewName = Replace(strNewName,"( ","(") strNewName = Replace(strNewName," )",")") strNewName = Replace(strNewName,"[ ","[") strNewName = Replace(strNewName," ]","]") strNewName = Replace(strNewName,"{ ","{") strNewName = Replace(strNewName," }","}") iNewLength = len(strNewName) Loop end if 'Remove Brackets if empty strNewName = Replace(strNewName, "()", "") strNewName = Replace(strNewName, "[]", "") strNewName = Replace(strNewName, "{}", "") 'Replace "[]" with "()" and "{}" with "()" if fBracket = True then strNewName = Replace(strNewName, "[", "(") strNewName = Replace(strNewName, "]", ")") strNewName = Replace(strNewName, "{", "(") strNewName = Replace(strNewName, "}", ")") end if ' Super Remove if fSuperRemove = True then strNewName = Replace(strNewName, "- 3s", "") strNewName = Replace(strNewName, "- Copy", "") strNewName = Replace(strNewName, "- copy", "") strNewName = Replace(strNewName, " he)", ")") strNewName = Replace(strNewName, " He)", ")") strNewName = Replace(strNewName, " Htm", "") strNewName = Replace(strNewName, " htm", "") strNewName = Replace(strNewName, " Htm0", "") strNewName = Replace(strNewName, " htm0", "") strNewName = Replace(strNewName, " html", "") strNewName = Replace(strNewName, " Html", "") strNewName = Replace(strNewName, " html0", "") strNewName = Replace(strNewName, " Html0", "") strNewName = Replace(strNewName, "(ANTH)", "") strNewName = Replace(strNewName, "(Anth)", "") strNewName = Replace(strNewName, "(anth)", "") strNewName = Replace(strNewName, "(ANTH )", "") strNewName = Replace(strNewName, "(Anth )", "") strNewName = Replace(strNewName, "(anth )", "") strNewName = Replace(strNewName, "(anth.)", "") strNewName = Replace(strNewName, "(Anth.)", "") strNewName = Replace(strNewName, "(ANTH.)", "") strNewName = Replace(strNewName, "(ANTH ", "") strNewName = Replace(strNewName, "(Anth ", "") strNewName = Replace(strNewName, "(anth ", "") strNewName = Replace(strNewName, "(anth. ", "") strNewName = Replace(strNewName, "(Anth. ", "") strNewName = Replace(strNewName, "(ANTH. ", "") strNewName = Replace(strNewName, " ANTH)", "") strNewName = Replace(strNewName, " Anth)", "") strNewName = Replace(strNewName, " anth)", "") strNewName = Replace(strNewName, " ANTH )", "") strNewName = Replace(strNewName, " Anth )", "") strNewName = Replace(strNewName, " anth )", "") strNewName = Replace(strNewName, " anth.)", "") strNewName = Replace(strNewName, " Anth.)", "") strNewName = Replace(strNewName, " ANTH.)", "") strNewName = Replace(strNewName, " ANTH ", "") strNewName = Replace(strNewName, " Anth ", "") strNewName = Replace(strNewName, " anth ", "") strNewName = Replace(strNewName, " anth. ", "") strNewName = Replace(strNewName, " Anth. ", "") strNewName = Replace(strNewName, " ANTH. ", "") strNewName = Replace(strNewName, "(anthology)", "") strNewName = Replace(strNewName, "(Anthology)", "") strNewName = Replace(strNewName, " anthology)", "") strNewName = Replace(strNewName, " Anthology)", "") strNewName = Replace(strNewName, "(anthology ", "") strNewName = Replace(strNewName, "(Anthology ", "") strNewName = Replace(strNewName, " anthology ", "") strNewName = Replace(strNewName, " Anthology ", "") strNewName = Replace(strNewName, "(aq)", "") strNewName = Replace(strNewName, "(AQ)", "") strNewName = Replace(strNewName, "(Aq)", "") strNewName = Replace(strNewName, "(Baen)", "") strNewName = Replace(strNewName, "(baen)", "") strNewName = Replace(strNewName, "(COM V", "(v") strNewName = Replace(strNewName, "(com v", "(v") strNewName = Replace(strNewName, "(Com V", "(v") strNewName = Replace(strNewName, "(Com v", "(v") strNewName = Replace(strNewName, "(Com v", "(v") strNewName = Replace(strNewName, "(com V", "(v") strNewName = Replace(strNewName, "(Ec)", "") strNewName = Replace(strNewName, "(ec)", "") strNewName = Replace(strNewName, "(EC)", "") strNewName = Replace(strNewName, "(Ed)", "") strNewName = Replace(strNewName, "(ed)", "") strNewName = Replace(strNewName, "(ED)", "") strNewName = Replace(strNewName, " Ed)", "") strNewName = Replace(strNewName, " ed)", "") strNewName = Replace(strNewName, " ED)", "") strNewName = Replace(strNewName, "(Ed ", "") strNewName = Replace(strNewName, "(ed ", "") strNewName = Replace(strNewName, "(ED ", "") strNewName = Replace(strNewName, " Ed ", "") strNewName = Replace(strNewName, " ed ", "") strNewName = Replace(strNewName, " ED ", "") strNewName = Replace(strNewName, "(ed.)", "") strNewName = Replace(strNewName, "(ED.)", "") strNewName = Replace(strNewName, "(Ed.)", "") strNewName = Replace(strNewName, " ed.)", "") strNewName = Replace(strNewName, " ED.)", "") strNewName = Replace(strNewName, " Ed.)", "") strNewName = Replace(strNewName, "(ed. ", "") strNewName = Replace(strNewName, "(ED. ", "") strNewName = Replace(strNewName, "(Ed. ", "") strNewName = Replace(strNewName, " ed. ", "") strNewName = Replace(strNewName, " ED. ", "") strNewName = Replace(strNewName, " Ed. ", "") strNewName = Replace(strNewName, "(eds)", "") strNewName = Replace(strNewName, "(EDS)", "") strNewName = Replace(strNewName, "(Eds)", "") strNewName = Replace(strNewName, " eds)", "") strNewName = Replace(strNewName, " EDS)", "") strNewName = Replace(strNewName, " Eds)", "") strNewName = Replace(strNewName, "(eds ", "") strNewName = Replace(strNewName, "(EDS ", "") strNewName = Replace(strNewName, "(Eds ", "") strNewName = Replace(strNewName, " eds ", "") strNewName = Replace(strNewName, " EDS ", "") strNewName = Replace(strNewName, " Eds ", "") strNewName = Replace(strNewName, "(eds. ", "") strNewName = Replace(strNewName, "(Eds. ", "") strNewName = Replace(strNewName, "(EDS. ", "") strNewName = Replace(strNewName, " EDS.)", "") strNewName = Replace(strNewName, " Eds.)", "") strNewName = Replace(strNewName, " eds.)", "") strNewName = Replace(strNewName, "(EDS.)", "") strNewName = Replace(strNewName, "(Eds.)", "") strNewName = Replace(strNewName, "(eds.)", "") strNewName = Replace(strNewName, " EDS. ", "") strNewName = Replace(strNewName, " Eds. ", "") strNewName = Replace(strNewName, " eds. ", "") strNewName = Replace(strNewName, "(Extasy)", "") strNewName = Replace(strNewName, "(extasy)", "") strNewName = Replace(strNewName, "(htm0", "") strNewName = Replace(strNewName, "(Htm0", "") strNewName = Replace(strNewName, "(Html0", "") strNewName = Replace(strNewName, "(html0", "") strNewName = Replace(strNewName, "(ncp)", "") strNewName = Replace(strNewName, "(Ncp)", "") strNewName = Replace(strNewName, "(novelette)", "") strNewName = Replace(strNewName, "(Novelette)", "") strNewName = Replace(strNewName, "(novella)", "") strNewName = Replace(strNewName, "(Novella)", "") strNewName = Replace(strNewName, "(novelette ", "") strNewName = Replace(strNewName, "(Novelette ", "") strNewName = Replace(strNewName, "(novella ", "") strNewName = Replace(strNewName, "(Novella ", "") strNewName = Replace(strNewName, " novelette)", "") strNewName = Replace(strNewName, " Novelette)", "") strNewName = Replace(strNewName, " novella)", "") strNewName = Replace(strNewName, " Novella)", "") strNewName = Replace(strNewName, " novelette ", "") strNewName = Replace(strNewName, " Novelette ", "") strNewName = Replace(strNewName, " novella ", "") strNewName = Replace(strNewName, " Novella ", "") strNewName = Replace(strNewName, "(SS Col)", "") strNewName = Replace(strNewName, "(ss col)", "") strNewName = Replace(strNewName, "(Ss Col)", "") strNewName = Replace(strNewName, "(ss col.)", "") strNewName = Replace(strNewName, "(Ss Col.)", "") strNewName = Replace(strNewName, "(SS Col.)", "") strNewName = Replace(strNewName, "(SS Col ", "") strNewName = Replace(strNewName, "(ss col ", "") strNewName = Replace(strNewName, "(Ss Col ", "") strNewName = Replace(strNewName, "(ss col. ", "") strNewName = Replace(strNewName, "(Ss Col. ", "") strNewName = Replace(strNewName, "(SS Col. ", "") strNewName = Replace(strNewName, " SS Col)", "") strNewName = Replace(strNewName, " ss col)", "") strNewName = Replace(strNewName, " Ss Col)", "") strNewName = Replace(strNewName, " ss col.)", "") strNewName = Replace(strNewName, " Ss Col.)", "") strNewName = Replace(strNewName, " SS Col.)", "") strNewName = Replace(strNewName, " SS Col ", "") strNewName = Replace(strNewName, " ss col ", "") strNewName = Replace(strNewName, " Ss Col ", "") strNewName = Replace(strNewName, " ss col. ", "") strNewName = Replace(strNewName, " Ss Col. ", "") strNewName = Replace(strNewName, " SS Col. ", "") StrNewName = Replace(strNewName, " SS Collection)", "") StrNewName = Replace(strNewName, " ss collection)", "") StrNewName = Replace(strNewName, " Ss Collection)", "") StrNewName = Replace(strNewName, "(SS Collection ", "") StrNewName = Replace(strNewName, "(ss collection ", "") StrNewName = Replace(strNewName, "(Ss Collection ", "") StrNewName = Replace(strNewName, "(SS Collection)", "") StrNewName = Replace(strNewName, "(ss collection)", "") StrNewName = Replace(strNewName, "(Ss Collection)", "") StrNewName = Replace(strNewName, " SS Collection ", "") StrNewName = Replace(strNewName, " ss collection ", "") StrNewName = Replace(strNewName, " Ss Collection ", "") strNewName = Replace(strNewName, "(Ss)", "") strNewName = Replace(strNewName, "(SS)", "") strNewName = Replace(strNewName, "(ss)", "") strNewName = Replace(strNewName, "(Ss ", "") strNewName = Replace(strNewName, "(SS ", "") strNewName = Replace(strNewName, "(ss ", "") strNewName = Replace(strNewName, " Ss)", "") strNewName = Replace(strNewName, " SS)", "") strNewName = Replace(strNewName, " ss)", "") strNewName = Replace(strNewName, " Ss ", "") strNewName = Replace(strNewName, " SS ", "") strNewName = Replace(strNewName, " ss ", "") strNewName = Replace(strNewName, "(SSC)", "") strNewName = Replace(strNewName, "(Ssc)", "") strNewName = Replace(strNewName, "(ssc)", "") strNewName = Replace(strNewName, "(SSC ", "") strNewName = Replace(strNewName, "(Ssc ", "") strNewName = Replace(strNewName, "(ssc ", "") strNewName = Replace(strNewName, " SSC)", "") strNewName = Replace(strNewName, " Ssc)", "") strNewName = Replace(strNewName, " ssc)", "") strNewName = Replace(strNewName, " SSC ", "") strNewName = Replace(strNewName, " Ssc ", "") strNewName = Replace(strNewName, " ssc ", "") strNewName = Replace(strNewName, "(Txt ", "(") strNewName = Replace(strNewName, "(txt ", "(") strNewName = Replace(strNewName, "(uc)", "") strNewName = Replace(strNewName, "(Uc)", "") strNewName = Replace(strNewName, "(UC)", "") strNewName = Replace(strNewName, "(undead)", "") strNewName = Replace(strNewName, "(Undead)", "") strNewName = Replace(strNewName, "-3s", "") end if 'Replace "- (" with "- " and ") -" with " -" if fSeriesBrak = True then strNewName = Replace(strNewName, "- (", "- ") strNewName = Replace(strNewName, ") -", " -") end if 'Replace Rounded Brackets around Version Info with Square if fRndToSqr = True then re.Pattern = "(.+)\((v.+?)\)(.*)" strNewName = re.Replace(strNewName, "$1[$2]$3") end if 'Delete Rounded Brackets and Everything Contained Inside if fDelRnd = True then re.Pattern = "(.*) \([^)]*\)(.*)" strNewName = re.Replace(strNewName, "$1$2") re.Pattern = "(.*) \([^)]*\)(.*)" strNewName = re.Replace(strNewName, "$1$2") re.Pattern = "(.*) \([^)]*\)(.*)" strNewName = re.Replace(strNewName, "$1$2") re.Pattern = "(.*) \([^)]*\)(.*)" strNewName = re.Replace(strNewName, "$1$2") end if 'Replace Square Brackets with Rounded Brackets if fSqrToRnd = True then re.Pattern = "(.+)\[(.+)](.*)" strNewName = re.Replace(strNewName, "$1($2)$3") re.Pattern = "(.+)\[(.+)](.*)" strNewName = re.Replace(strNewName, "$1($2)$3") re.Pattern = "(.+)\[(.+)](.*)" strNewName = re.Replace(strNewName, "$1($2)$3") re.Pattern = "(.+)\[(.+)](.*)" strNewName = re.Replace(strNewName, "$1($2)$3") re.Pattern = "(.+)\[(.+)](.*)" strNewName = re.Replace(strNewName, "$1($2)$3") end if '========================================================== 'Fixes mistakes in with Version Info if fVersionFix = True then strNewName = Replace(strNewName, "(V", "(v") strNewName = Replace(strNewName, "(v ", "(v") strNewName = Replace(strNewName, " v5.9", " (v5.9)") strNewName = Replace(strNewName, " v5.8", " (v5.8)") strNewName = Replace(strNewName, " v5.7", " (v5.7)") strNewName = Replace(strNewName, " v5.6", " (v5.6)") strNewName = Replace(strNewName, " v5.5", " (v5.5)") strNewName = Replace(strNewName, " v5.4", " (v5.4)") strNewName = Replace(strNewName, " v5.3", " (v5.3)") strNewName = Replace(strNewName, " v5.2", " (v5.2)") strNewName = Replace(strNewName, " v5.1", " (v5.1)") strNewName = Replace(strNewName, " v5.0", " (v5.0)") strNewName = Replace(strNewName, " V5.9", " (v5.9)") strNewName = Replace(strNewName, " V5.8", " (v5.8)") strNewName = Replace(strNewName, " V5.7", " (v5.7)") strNewName = Replace(strNewName, " V5.6", " (v5.6)") strNewName = Replace(strNewName, " V5.5", " (v5.5)") strNewName = Replace(strNewName, " V5.4", " (v5.4)") strNewName = Replace(strNewName, " V5.3", " (v5.3)") strNewName = Replace(strNewName, " V5.2", " (v5.2)") strNewName = Replace(strNewName, " V5.1", " (v5.1)") strNewName = Replace(strNewName, " V5.0", " (v5.0)") strNewName = Replace(strNewName, " v5", " (v5)") strNewName = Replace(strNewName, " V5", " (v5)") strNewName = Replace(strNewName, " v4.9", " (v5.9)") strNewName = Replace(strNewName, " v4.8", " (v5.8)") strNewName = Replace(strNewName, " v4.7", " (v5.7)") strNewName = Replace(strNewName, " v4.6", " (v5.6)") strNewName = Replace(strNewName, " v4.5", " (v5.5)") strNewName = Replace(strNewName, " v4.4", " (v5.4)") strNewName = Replace(strNewName, " v4.3", " (v5.3)") strNewName = Replace(strNewName, " v4.2", " (v5.2)") strNewName = Replace(strNewName, " v4.1", " (v5.1)") strNewName = Replace(strNewName, " v4.0", " (v5.0)") strNewName = Replace(strNewName, " V4.9", " (v5.9)") strNewName = Replace(strNewName, " V4.8", " (v5.8)") strNewName = Replace(strNewName, " V4.7", " (v5.7)") strNewName = Replace(strNewName, " V4.6", " (v5.6)") strNewName = Replace(strNewName, " V4.5", " (v5.5)") strNewName = Replace(strNewName, " V4.4", " (v5.4)") strNewName = Replace(strNewName, " V4.3", " (v5.3)") strNewName = Replace(strNewName, " V4.2", " (v5.2)") strNewName = Replace(strNewName, " V4.1", " (v5.1)") strNewName = Replace(strNewName, " V4.0", " (v5.0)") strNewName = Replace(strNewName, " V4", " (v5)") strNewName = Replace(strNewName, " v4", " (v5)") strNewName = Replace(strNewName, " v3.9", " (v3.9)") strNewName = Replace(strNewName, " v3.8", " (v3.8)") strNewName = Replace(strNewName, " v3.7", " (v3.7)") strNewName = Replace(strNewName, " v3.6", " (v3.6)") strNewName = Replace(strNewName, " v3.5", " (v3.5)") strNewName = Replace(strNewName, " v3.4", " (v3.4)") strNewName = Replace(strNewName, " v3.3", " (v3.3)") strNewName = Replace(strNewName, " v3.2", " (v3.2)") strNewName = Replace(strNewName, " v3.1", " (v3.1)") strNewName = Replace(strNewName, " v3.0", " (v3.0)") strNewName = Replace(strNewName, " V3.9", " (v3.9)") strNewName = Replace(strNewName, " V3.8", " (v3.8)") strNewName = Replace(strNewName, " V3.7", " (v3.7)") strNewName = Replace(strNewName, " V3.6", " (v3.6)") strNewName = Replace(strNewName, " V3.5", " (v3.5)") strNewName = Replace(strNewName, " V3.4", " (v3.4)") strNewName = Replace(strNewName, " V3.3", " (v3.3)") strNewName = Replace(strNewName, " V3.2", " (v3.2)") strNewName = Replace(strNewName, " V3.1", " (v3.1)") strNewName = Replace(strNewName, " V3.0", " (v3.0)") strNewName = Replace(strNewName, " V3", " (v3)") strNewName = Replace(strNewName, " v3", " (v3)") strNewName = Replace(strNewName, " v2.9", " (v2.9)") strNewName = Replace(strNewName, " v2.8", " (v2.8)") strNewName = Replace(strNewName, " v2.7", " (v2.7)") strNewName = Replace(strNewName, " v2.6", " (v2.6)") strNewName = Replace(strNewName, " v2.5", " (v2.5)") strNewName = Replace(strNewName, " v2.4", " (v2.4)") strNewName = Replace(strNewName, " v2.3", " (v2.3)") strNewName = Replace(strNewName, " v2.2", " (v2.2)") strNewName = Replace(strNewName, " v2.1", " (v2.1)") strNewName = Replace(strNewName, " v2.0", " (v2.0)") strNewName = Replace(strNewName, " V2.9", " (v2.9)") strNewName = Replace(strNewName, " V2.8", " (v2.8)") strNewName = Replace(strNewName, " V2.7", " (v2.7)") strNewName = Replace(strNewName, " V2.6", " (v2.6)") strNewName = Replace(strNewName, " V2.5", " (v2.5)") strNewName = Replace(strNewName, " V2.4", " (v2.4)") strNewName = Replace(strNewName, " V2.3", " (v2.3)") strNewName = Replace(strNewName, " V2.2", " (v2.2)") strNewName = Replace(strNewName, " V2.1", " (v2.1)") strNewName = Replace(strNewName, " V2.0", " (v2.0)") strNewName = Replace(strNewName, " v2", " (v2)") strNewName = Replace(strNewName, " V2", " (v2)") strNewName = Replace(strNewName, " v1.9", " (v1.9)") strNewName = Replace(strNewName, " v1.8", " (v1.8)") strNewName = Replace(strNewName, " v1.7", " (v1.7)") strNewName = Replace(strNewName, " v1.6", " (v1.6)") strNewName = Replace(strNewName, " v1.5", " (v1.5)") strNewName = Replace(strNewName, " v1.4", " (v1.4)") strNewName = Replace(strNewName, " v1.3", " (v1.3)") strNewName = Replace(strNewName, " v1.2", " (v1.2)") strNewName = Replace(strNewName, " v1.1", " (v1.1)") strNewName = Replace(strNewName, " v1.0", " (v1.0)") strNewName = Replace(strNewName, " V1.9", " (v1.9)") strNewName = Replace(strNewName, " V1.8", " (v1.8)") strNewName = Replace(strNewName, " V1.7", " (v1.7)") strNewName = Replace(strNewName, " V1.6", " (v1.6)") strNewName = Replace(strNewName, " V1.5", " (v1.5)") strNewName = Replace(strNewName, " V1.4", " (v1.4)") strNewName = Replace(strNewName, " V1.3", " (v1.3)") strNewName = Replace(strNewName, " V1.2", " (v1.2)") strNewName = Replace(strNewName, " V1.1", " (v1.1)") strNewName = Replace(strNewName, " V1.0", " (v1.0)") strNewName = Replace(strNewName, " v1", " (v1)") strNewName = Replace(strNewName, " V1", " (v1)") strNewName = Replace(strNewName, " v0.9", " (v0.9)") strNewName = Replace(strNewName, " v0.8", " (v0.8)") strNewName = Replace(strNewName, " v0.7", " (v0.7)") strNewName = Replace(strNewName, " v0.6", " (v0.6)") strNewName = Replace(strNewName, " v0.5", " (v0.5)") strNewName = Replace(strNewName, " v0.4", " (v0.4)") strNewName = Replace(strNewName, " v0.3", " (v0.3)") strNewName = Replace(strNewName, " v0.2", " (v0.2)") strNewName = Replace(strNewName, " v0.1", " (v0.1)") strNewName = Replace(strNewName, " v0.0", " (v0.0)") strNewName = Replace(strNewName, " V0.9", " (v0.9)") strNewName = Replace(strNewName, " V0.8", " (v0.8)") strNewName = Replace(strNewName, " V0.7", " (v0.7)") strNewName = Replace(strNewName, " V0.6", " (v0.6)") strNewName = Replace(strNewName, " V0.5", " (v0.5)") strNewName = Replace(strNewName, " V0.4", " (v0.4)") strNewName = Replace(strNewName, " V0.3", " (v0.3)") strNewName = Replace(strNewName, " V0.2", " (v0.2)") strNewName = Replace(strNewName, " V0.1", " (v0.1)") strNewName = Replace(strNewName, " V0.0", " (v0.0)") strNewName = Replace(strNewName, ")0", "0)") strNewName = Replace(strNewName, ")1", "1)") strNewName = Replace(strNewName, ")2", "2)") strNewName = Replace(strNewName, ")3", "3)") strNewName = Replace(strNewName, ")4", "4)") strNewName = Replace(strNewName, ")5", "5)") strNewName = Replace(strNewName, ")6", "6)") strNewName = Replace(strNewName, ")7", "7)") strNewName = Replace(strNewName, ")8", "8)") strNewName = Replace(strNewName, ")9", "9)") strNewName = Replace(strNewName, "(v5 9)", "(v5.9)") strNewName = Replace(strNewName, "(v5 8)", "(v5.8)") strNewName = Replace(strNewName, "(v5 7)", "(v5.7)") strNewName = Replace(strNewName, "(v5 6)", "(v5.6)") strNewName = Replace(strNewName, "(v5 5)", "(v5.5)") strNewName = Replace(strNewName, "(v5 4)", "(v5.4)") strNewName = Replace(strNewName, "(v5 3)", "(v5.3)") strNewName = Replace(strNewName, "(v5 2)", "(v5.2)") strNewName = Replace(strNewName, "(v5 1)", "(v5.1)") strNewName = Replace(strNewName, "(v5 0)", "(v5.0)") strNewName = Replace(strNewName, "(V5 9)", "(v5.9)") strNewName = Replace(strNewName, "(V5 8)", "(v5.8)") strNewName = Replace(strNewName, "(V5 7)", "(v5.7)") strNewName = Replace(strNewName, "(V5 6)", "(v5.6)") strNewName = Replace(strNewName, "(V5 5)", "(v5.5)") strNewName = Replace(strNewName, "(V5 4)", "(v5.4)") strNewName = Replace(strNewName, "(V5 3)", "(v5.3)") strNewName = Replace(strNewName, "(V5 2)", "(v5.2)") strNewName = Replace(strNewName, "(V5 1)", "(v5.1)") strNewName = Replace(strNewName, "(V5 0)", "(v5.0)") strNewName = Replace(strNewName, "(v4 9)", "(v5.9)") strNewName = Replace(strNewName, "(v4 8)", "(v5.8)") strNewName = Replace(strNewName, "(v4 7)", "(v5.7)") strNewName = Replace(strNewName, "(v4 6)", "(v5.6)") strNewName = Replace(strNewName, "(v4 5)", "(v5.5)") strNewName = Replace(strNewName, "(v4 4)", "(v5.4)") strNewName = Replace(strNewName, "(v4 3)", "(v5.3)") strNewName = Replace(strNewName, "(v4 2)", "(v5.2)") strNewName = Replace(strNewName, "(v4 1)", "(v5.1)") strNewName = Replace(strNewName, "(v4 0)", "(v5.0)") strNewName = Replace(strNewName, "(V4 9)", "(v5.9)") strNewName = Replace(strNewName, "(V4 8)", "(v5.8)") strNewName = Replace(strNewName, "(V4 7)", "(v5.7)") strNewName = Replace(strNewName, "(V4 6)", "(v5.6)") strNewName = Replace(strNewName, "(V4 5)", "(v5.5)") strNewName = Replace(strNewName, "(V4 4)", "(v5.4)") strNewName = Replace(strNewName, "(V4 3)", "(v5.3)") strNewName = Replace(strNewName, "(V4 2)", "(v5.2)") strNewName = Replace(strNewName, "(V4 1)", "(v5.1)") strNewName = Replace(strNewName, "(V4 0)", "(v5.0)") strNewName = Replace(strNewName, "(v3 9)", "(v3.9)") strNewName = Replace(strNewName, "(v3 8)", "(v3.8)") strNewName = Replace(strNewName, "(v3 7)", "(v3.7)") strNewName = Replace(strNewName, "(v3 6)", "(v3.6)") strNewName = Replace(strNewName, "(v3 5)", "(v3.5)") strNewName = Replace(strNewName, "(v3 4)", "(v3.4)") strNewName = Replace(strNewName, "(v3 3)", "(v3.3)") strNewName = Replace(strNewName, "(v3 2)", "(v3.2)") strNewName = Replace(strNewName, "(v3 1)", "(v3.1)") strNewName = Replace(strNewName, "(v3 0)", "(v3.0)") strNewName = Replace(strNewName, "(V3 9)", "(v3.9)") strNewName = Replace(strNewName, "(V3 8)", "(v3.8)") strNewName = Replace(strNewName, "(V3 7)", "(v3.7)") strNewName = Replace(strNewName, "(V3 6)", "(v3.6)") strNewName = Replace(strNewName, "(V3 5)", "(v3.5)") strNewName = Replace(strNewName, "(V3 4)", "(v3.4)") strNewName = Replace(strNewName, "(V3 3)", "(v3.3)") strNewName = Replace(strNewName, "(V3 2)", "(v3.2)") strNewName = Replace(strNewName, "(V3 1)", "(v3.1)") strNewName = Replace(strNewName, "(V3 0)", "(v3.0)") strNewName = Replace(strNewName, "(v2 9)", "(v2.9)") strNewName = Replace(strNewName, "(v2 8)", "(v2.8)") strNewName = Replace(strNewName, "(v2 7)", "(v2.7)") strNewName = Replace(strNewName, "(v2 6)", "(v2.6)") strNewName = Replace(strNewName, "(v2 5)", "(v2.5)") strNewName = Replace(strNewName, "(v2 4)", "(v2.4)") strNewName = Replace(strNewName, "(v2 3)", "(v2.3)") strNewName = Replace(strNewName, "(v2 2)", "(v2.2)") strNewName = Replace(strNewName, "(v2 1)", "(v2.1)") strNewName = Replace(strNewName, "(v2 0)", "(v2.0)") strNewName = Replace(strNewName, "(V2 9)", "(v2.9)") strNewName = Replace(strNewName, "(V2 8)", "(v2.8)") strNewName = Replace(strNewName, "(V2 7)", "(v2.7)") strNewName = Replace(strNewName, "(V2 6)", "(v2.6)") strNewName = Replace(strNewName, "(V2 5)", "(v2.5)") strNewName = Replace(strNewName, "(V2 4)", "(v2.4)") strNewName = Replace(strNewName, "(V2 3)", "(v2.3)") strNewName = Replace(strNewName, "(V2 2)", "(v2.2)") strNewName = Replace(strNewName, "(V2 1)", "(v2.1)") strNewName = Replace(strNewName, "(V2 0)", "(v2.0)") strNewName = Replace(strNewName, "(v1 9)", "(v1.9)") strNewName = Replace(strNewName, "(v1 8)", "(v1.8)") strNewName = Replace(strNewName, "(v1 7)", "(v1.7)") strNewName = Replace(strNewName, "(v1 6)", "(v1.6)") strNewName = Replace(strNewName, "(v1 5)", "(v1.5)") strNewName = Replace(strNewName, "(v1 4)", "(v1.4)") strNewName = Replace(strNewName, "(v1 3)", "(v1.3)") strNewName = Replace(strNewName, "(v1 2)", "(v1.2)") strNewName = Replace(strNewName, "(v1 1)", "(v1.1)") strNewName = Replace(strNewName, "(v1 0)", "(v1.0)") strNewName = Replace(strNewName, "(V1 9)", "(v1.9)") strNewName = Replace(strNewName, "(V1 8)", "(v1.8)") strNewName = Replace(strNewName, "(V1 7)", "(v1.7)") strNewName = Replace(strNewName, "(V1 6)", "(v1.6)") strNewName = Replace(strNewName, "(V1 5)", "(v1.5)") strNewName = Replace(strNewName, "(V1 4)", "(v1.4)") strNewName = Replace(strNewName, "(V1 3)", "(v1.3)") strNewName = Replace(strNewName, "(V1 2)", "(v1.2)") strNewName = Replace(strNewName, "(V1 1)", "(v1.1)") strNewName = Replace(strNewName, "(V1 0)", "(v1.0)") strNewName = Replace(strNewName, "(v0 9)", "(v0.9)") strNewName = Replace(strNewName, "(v0 8)", "(v0.8)") strNewName = Replace(strNewName, "(v0 7)", "(v0.7)") strNewName = Replace(strNewName, "(v0 6)", "(v0.6)") strNewName = Replace(strNewName, "(v0 5)", "(v0.5)") strNewName = Replace(strNewName, "(v0 4)", "(v0.4)") strNewName = Replace(strNewName, "(v0 3)", "(v0.3)") strNewName = Replace(strNewName, "(v0 2)", "(v0.2)") strNewName = Replace(strNewName, "(v0 1)", "(v0.1)") strNewName = Replace(strNewName, "(v0 0)", "(v0.0)") strNewName = Replace(strNewName, "(V0 9)", "(v0.9)") strNewName = Replace(strNewName, "(V0 7)", "(v0.7)") strNewName = Replace(strNewName, "(V0 6)", "(v0.6)") strNewName = Replace(strNewName, "(V0 5)", "(v0.5)") strNewName = Replace(strNewName, "(V0 4)", "(v0.4)") strNewName = Replace(strNewName, "(V0 3)", "(v0.3)") strNewName = Replace(strNewName, "(V0 2)", "(v0.2)") strNewName = Replace(strNewName, "(V0 1)", "(v0.1)") strNewName = Replace(strNewName, "(V0 0)", "(v0.0)") end if '========================================================== '______________________________________________________________________ ' Trim spaces at start/end of filename (e.g. because it used to start with a an underscore) strNewName = Trim(strNewName) ' Convert filename to TitleCase if fTitleCase = True then ' Create an array from words in the filename strNameArray = split(strNewName, " ") ' Now go through each item in the array and process it if ubound(strNameArray) > 0 then for x = lbound(strNameArray) to ubound(strNameArray) ' Set all text to lower case to begin with strNameArray(x) = LCase(strNameArray(x)) ' Ignore articles, prepositions and conjunctions Select Case strNameArray(x) 'English Case "a" Case "an" Case "and" Case "as" Case "at" Case "but" Case "by" Case "for" Case "in" Case "into" Case "is" Case "it" Case "nor" Case "of" Case "off" Case "on" Case "onto" Case "or" Case "out" Case "per" Case "so" Case "the" Case "to" Case "via" Case "vs." Case "vs" 'Special cases to keep in lower case as well... Case "n'" Case "'n'" ' Rock n' Roll and Rock 'n' Roll Case "v" Case "v." ' version Case "ör" ' March ör Die (Motörhead) Case "a.m." ' 9:08 a.m..mp3 Case "x" ' 2 x 4.mp3 (Metallica) Case "der" ' German 'French Case "à" Case "après" Case "au" Case "aux" Case "avant" Case "avec" Case "car" Case "chez" Case "dans" Case "de" Case "depuis" Case "derrière" Case "des" Case "devant" Case "donc" Case "d'un" Case "d'une" Case "en" Case "envers" Case "et" Case "est" Case "l'" Case "la" Case "le" Case "les" Case "leur" Case "leurs" Case "l'un" Case "l'une" Case "ma" Case "mais" Case "mes" Case "mon" Case "ni" Case "nos" Case "notre" Case "or" Case "ou" Case "par" Case "pendant" Case "pour" Case "que" Case "qui" Case "sa" Case "sans" Case "sauf" Case "selon" Case "ses" Case "son" Case "sont" Case "sous" Case "sur" Case "ta" Case "tes" Case "ton" Case "un" Case "une" Case "vos" Case "votre" 'Italian Case "a" Case "e" Case "è" Case "gli" Case "il" Case "la" Case "le" Case "lo" Case "loro" Case "ma" Case "mi" Case "mia" Case "mie" Case "miei" Case "mio" Case "nostra" Case "nostre" Case "nostri" Case "nostro" Case "per" Case "sua" Case "sue" Case "suo" Case "suoi" Case "tua" Case "tue" Case "tuo" Case "tuoi" Case "vostra" Case "vostre" Case "vostri" Case "vostro" 'Spanish Case "a" Case "al" Case "ante" Case "bajo" Case "con" Case "contra" Case "de" Case "del" Case "desde" Case "durante" Case "el" Case "en" Case "entre" Case "hacia" Case "hasta" Case "la" Case "las" Case "lo" Case "los" Case "para" Case "por" Case "pro" Case "según" Case "sin" Case "sobre" Case "tras" Case "un" Case "una" Case "unas" Case "unos" Case "vía" Case else if len(strNameArray(x)) > 0 then strTmpWord = Ucase(mid(strNameArray(x),1,1)) & mid(strNameArray(x),2,len(strNameArray(x))-1) ' If the word begins with "(" then capitalise the next letter if mid(strNameArray(x),1,1) = "(" then if fParCap = True then strTmpWord = Ucase(mid(strNameArray(x),1,2)) & mid(strNameArray(x),3,len(strNameArray(x))-1) end if end if ' If the word follows a "-" then it needs to be capitalised if mid(strNameArray(x),1,1) = "-" then if fDashCap = True then strTmpWord = Ucase(mid(strNameArray(x),1,2)) & mid(strNameArray(x),3,len(strNameArray(x))-1) end if end if strNameArray(x) = strTmpWord end if end Select next Else strNameArray(0) = LCase(strNameArray(0)) End if ' Make sure the first word is capitalised strTmpWord = Ucase(mid(strNameArray(0),1,1)) & mid(strNameArray(0),2,len(strNameArray(0))-1) strNameArray(0) = strTmpWord ' Clear the new name variable strNewName = "" ' Rebuild the array into one string For x = lbound(strNameArray) To ubound(strNameArray) strNewName = strNewName & strNameArray(x) & " " Next ' Capitalise after - when it's in the middle of words ' Capitalise after - when it's between words if fDashCap = True then For j = 1 to len(strNewName) if mid(strNewName,j,1) = "-" then strTmpName = strTmpName & mid(strNewName,j,1) j=j+1 if mid(strNewName,j,1) = " " then strTmpName = strTmpName & mid(strNewName,j,1) j=j+1 end if strTmpName = StrTmpName & Ucase(mid(strNewName,j,1)) else strTmpName = strTmpName & mid(strNewName,j,1) end if Next strNewName = strTmpName strTmpName = "" end if ' Capitalise after full stops in the middle of and between words if fFullStopCap = True then For i = 1 To len(strNewName) if mid(strNewName,i,1) = "." then strTmpName = strTmpName & mid(strNewName,i,1) i=i+1 if mid(strNewName,i,1) = " " then strTmpName = strTmpName & mid(strNewName,i,1) i=i+1 end if strTmpName = StrTmpName & Ucase(mid(strNewName,i,1)) else strTmpName = strTmpName & mid(strNewName,i,1) end if Next strNewName = strTmpName strTmpName = "" end if ' Capitalise first non-numeric, non-space character. ' This is for music files like "07 By My Side.flac" which don't have a dash after their track numbers. if fFirstNonNum = True then For i = 1 to len(strNewName) if (not IsNumeric(mid(strNewName,i,1))) and mid(strNewName,i,1) <> " " then strNewName = mid(strNewName,1,i-1) & Ucase(mid(strNewName,i,1)) & mid(strNewName,i+1) exit for end if Next end if end if 'Remove [version]1.0.0.8 (aka deletes "v." or "v") if fVersion = True then re.Pattern = "\s+v\.*\s*(\d)" strNewName = re.Replace(strNewName, " $1") else re.Pattern = "\s+v\.*\s*(\d)" strNewName = re.Replace(strNewName, " v$1") end if '=========================================================== ' Strip leading/trailing spaces if fStripSpaces = True then strExt = Trim(strExt) strNewName = Trim(strNewName) end if ' Rejoin the name and extension and we're finished strNewName = strNewName & strExt '=========================================================== 'Strip leading/trailing unwanted characters and formats if fStripUnWant = True then iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) ' "example . .ext" to "example.ext" re.Pattern = "(.*)(?:\s*\.+\s*)+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") ' "example , .ext" to "example.ext" iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) re.Pattern = "(.*)(?:\s*\,+\s*)+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") iNewLength = len(strNewName) Loop ' " - - example.ext" to "example.ext" re.Pattern = "^(?:\s*-+\s*-+\s*)+(.*)" strNewName = re.Replace(strNewName, "$1") ' " , example.ext" to "example.ext" re.Pattern = "^(?:\s*,+\s*)+(.*)" strNewName = re.Replace(strNewName, "$1") ' "example - - .ext" to "example.ext" re.Pattern = "(.*)(?:\s*-+\s*-+\s*)+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") ' "example #.ext" to "example.ext" iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) re.Pattern = "(.*)(?:\s*\#+\s*)+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") iNewLength = len(strNewName) Loop ' "# example.ext" to "example.ext" re.Pattern = "^(?:\s*\#+\s*)+(.*)" strNewName = re.Replace(strNewName, "$1") ' " - example.ext" to "example.ext" re.Pattern = "^(?:\s*-+\s*)+(.+)" strNewName = re.Replace(strNewName, "$1") ' "example , test.ext" to "example, test.ext" re.Pattern = "(.*)\s+,(\s*.+)" strNewName = re.Replace(strNewName, "$1,$2") ' " . example.ext" to "example.ext" re.Pattern = "^(?:\s*\.+\s*)+(.+)" strNewName = re.Replace(strNewName, "$1") ' "example - .ext" to "example.ext" re.Pattern = "(.*)(?:\s*-+\s*)+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") ' "exemple_-_test.ext" to "exemple_test.ext" ' re.Pattern = "(.*)-\s*_|_\s*-(.*)" ' strNewName = re.Replace(strNewName, "$1_$2") ' "exemple _ test.ext" to "exemple_test.ext" ' strNewName = Replace(strNewName, " _", "_") ' strNewName = Replace(strNewName, "_ ", "_") iNewLength = len(strNewName) Loop end if '========================================================== 'Replaces Multiple spaces with Single Space if fMultiSpaces = True then iNewLength = 0 iOldLength = len(strNewName) Do While iOldLength > iNewLength iOldLength = len(strNewName) strNewName = Replace(strNewName," "," ") iNewLength = len(strNewName) Loop end if 'Strip Both Leading/trailing Spaces if fStripSpaces = True then ' "exemple .ext" to "exemple.ext" re.Pattern = "(.*)\s+(\.[^.]+)$" strNewName = re.Replace(strNewName, "$1$2") ' " exemple.ext" to "exemple.ext" re.Pattern = "^\s+(.+)" strNewName = re.Replace(strNewName, "$1") end if '=========================================================== 'Fix Captilization with McD and O'B type Names if fCapMic = True then strNewName = Replace(strNewName, " Mca", " McA") strNewName = Replace(strNewName, " Mcb", " McB") strNewName = Replace(strNewName, " Mcc", " McC") strNewName = Replace(strNewName, " Mcd", " McD") strNewName = Replace(strNewName, " Mce", " McE") strNewName = Replace(strNewName, " Mcf", " McF") strNewName = Replace(strNewName, " Mcg", " McG") strNewName = Replace(strNewName, " Mch", " McH") strNewName = Replace(strNewName, " Mci", " McI") strNewName = Replace(strNewName, " Mcj", " McJ") strNewName = Replace(strNewName, " Mck", " McK") strNewName = Replace(strNewName, " Mcl", " McL") strNewName = Replace(strNewName, " Mcm", " McM") strNewName = Replace(strNewName, " Mcn", " McN") strNewName = Replace(strNewName, " Mco", " McO") strNewName = Replace(strNewName, " Mcp", " McP") strNewName = Replace(strNewName, " Mcq", " McQ") strNewName = Replace(strNewName, " Mcr", " McR") strNewName = Replace(strNewName, " Mcs", " McS") strNewName = Replace(strNewName, " Mct", " McT") strNewName = Replace(strNewName, " Mcu", " McU") strNewName = Replace(strNewName, " Mcv", " McV") strNewName = Replace(strNewName, " Mcw", " McW") strNewName = Replace(strNewName, " Mcx", " McX") strNewName = Replace(strNewName, " Mcy", " McY") strNewName = Replace(strNewName, " Mcz", " McZ") strNewName = Replace(strNewName, " Maca", " MacA") strNewName = Replace(strNewName, " Macb", " MacB") strNewName = Replace(strNewName, " Macc", " MacC") strNewName = Replace(strNewName, " Macd", " MacD") strNewName = Replace(strNewName, " Mace", " MacE") strNewName = Replace(strNewName, " Macf", " MacF") strNewName = Replace(strNewName, " Macg", " MacG") strNewName = Replace(strNewName, " Mach", " MacH") strNewName = Replace(strNewName, " Maci", " MacI") strNewName = Replace(strNewName, " Macj", " MacJ") strNewName = Replace(strNewName, " Mack", " MacK") strNewName = Replace(strNewName, " Macl", " MacL") strNewName = Replace(strNewName, " Macm", " MacM") strNewName = Replace(strNewName, " Macn", " MacN") strNewName = Replace(strNewName, " Maco", " MacO") strNewName = Replace(strNewName, " Macp", " MacP") strNewName = Replace(strNewName, " Macq", " MacQ") strNewName = Replace(strNewName, " Macr", " MacR") strNewName = Replace(strNewName, " Macs", " MacS") strNewName = Replace(strNewName, " Mact", " MacT") strNewName = Replace(strNewName, " Macu", " MacU") strNewName = Replace(strNewName, " Macv", " MacV") strNewName = Replace(strNewName, " Macw", " MacW") strNewName = Replace(strNewName, " Macx", " MacX") strNewName = Replace(strNewName, " Macy", " MacY") strNewName = Replace(strNewName, " Macz", " MacZ") strNewName = Replace(strNewName, " O'a", " O'A") strNewName = Replace(strNewName, " O'b", " O'B") strNewName = Replace(strNewName, " O'c", " O'C") strNewName = Replace(strNewName, " O'd", " O'D") strNewName = Replace(strNewName, " O'e", " O'E") strNewName = Replace(strNewName, " O'f", " O'F") strNewName = Replace(strNewName, " O'g", " O'G") strNewName = Replace(strNewName, " O'h", " O'H") strNewName = Replace(strNewName, " O'i", " O'I") strNewName = Replace(strNewName, " O'j", " O'J") strNewName = Replace(strNewName, " O'k", " O'K") strNewName = Replace(strNewName, " O'l", " O'L") strNewName = Replace(strNewName, " O'm", " O'M") strNewName = Replace(strNewName, " O'n", " O'N") strNewName = Replace(strNewName, " O'o", " O'O") strNewName = Replace(strNewName, " O'p", " O'P") strNewName = Replace(strNewName, " O'q", " O'Q") strNewName = Replace(strNewName, " O'r", " O'R") strNewName = Replace(strNewName, " O's", " O'S") strNewName = Replace(strNewName, " O't", " O'T") strNewName = Replace(strNewName, " O'u", " O'U") strNewName = Replace(strNewName, " O'v", " O'V") strNewName = Replace(strNewName, " O'w", " O'W") strNewName = Replace(strNewName, " O'x", " O'X") strNewName = Replace(strNewName, " O'y", " O'W") strNewName = Replace(strNewName, " O'z", " O'Z") end if '=========================================================== 'Pushes Initials together like George R R Martin to George RR Martin if fCapMagic1 = True then strNewName = Replace(strNewName, "A A ", "AA ") strNewName = Replace(strNewName, "A B ", "AB ") strNewName = Replace(strNewName, "A C ", "AC ") strNewName = Replace(strNewName, "A D ", "AD ") strNewName = Replace(strNewName, "A E ", "AE ") strNewName = Replace(strNewName, "A F ", "AF ") strNewName = Replace(strNewName, "A G ", "AG ") strNewName = Replace(strNewName, "A H ", "AH ") strNewName = Replace(strNewName, "A I ", "AI ") strNewName = Replace(strNewName, "A J ", "AJ ") strNewName = Replace(strNewName, "A K ", "AK ") strNewName = Replace(strNewName, "A L ", "AL ") strNewName = Replace(strNewName, "A M ", "AM ") strNewName = Replace(strNewName, "A N ", "AN ") strNewName = Replace(strNewName, "A O ", "AO ") strNewName = Replace(strNewName, "A P ", "AP ") strNewName = Replace(strNewName, "A Q ", "AQ ") strNewName = Replace(strNewName, "A R ", "AR ") strNewName = Replace(strNewName, "A S ", "AS ") strNewName = Replace(strNewName, "A T ", "AT ") strNewName = Replace(strNewName, "A U ", "AU ") strNewName = Replace(strNewName, "A V ", "AV ") strNewName = Replace(strNewName, "A W ", "AW ") strNewName = Replace(strNewName, "A X ", "AX ") strNewName = Replace(strNewName, "A Y ", "AY ") strNewName = Replace(strNewName, "A Z ", "AZ ") strNewName = Replace(strNewName, "B A ", "BA ") strNewName = Replace(strNewName, "B B ", "BB ") strNewName = Replace(strNewName, "B C ", "BC ") strNewName = Replace(strNewName, "B D ", "BD ") strNewName = Replace(strNewName, "B E ", "BE ") strNewName = Replace(strNewName, "B F ", "BF ") strNewName = Replace(strNewName, "B G ", "BG ") strNewName = Replace(strNewName, "B H ", "BH ") strNewName = Replace(strNewName, "B I ", "BI ") strNewName = Replace(strNewName, "B J ", "BJ ") strNewName = Replace(strNewName, "B K ", "BK ") strNewName = Replace(strNewName, "B L ", "BL ") strNewName = Replace(strNewName, "B M ", "BM ") strNewName = Replace(strNewName, "B N ", "BN ") strNewName = Replace(strNewName, "B O ", "BO ") strNewName = Replace(strNewName, "B P ", "BP ") strNewName = Replace(strNewName, "B Q ", "BQ ") strNewName = Replace(strNewName, "B R ", "BR ") strNewName = Replace(strNewName, "B S ", "BS ") strNewName = Replace(strNewName, "B T ", "BT ") strNewName = Replace(strNewName, "B U ", "BU ") strNewName = Replace(strNewName, "B V ", "BV ") strNewName = Replace(strNewName, "B W ", "BW ") strNewName = Replace(strNewName, "B X ", "BX ") strNewName = Replace(strNewName, "B Y ", "BY ") strNewName = Replace(strNewName, "B Z ", "BZ ") strNewName = Replace(strNewName, "C A ", "CA ") strNewName = Replace(strNewName, "C B ", "CB ") strNewName = Replace(strNewName, "C C ", "CC ") strNewName = Replace(strNewName, "C D ", "CD ") strNewName = Replace(strNewName, "C E ", "CE ") strNewName = Replace(strNewName, "C F ", "CF ") strNewName = Replace(strNewName, "C G ", "CG ") strNewName = Replace(strNewName, "C H ", "CH ") strNewName = Replace(strNewName, "C I ", "CI ") strNewName = Replace(strNewName, "C J ", "CJ ") strNewName = Replace(strNewName, "C K ", "CK ") strNewName = Replace(strNewName, "C L ", "CL ") strNewName = Replace(strNewName, "C M ", "CM ") strNewName = Replace(strNewName, "C N ", "CN ") strNewName = Replace(strNewName, "C O ", "CO ") strNewName = Replace(strNewName, "C P ", "CP ") strNewName = Replace(strNewName, "C Q ", "CQ ") strNewName = Replace(strNewName, "C R ", "CR ") strNewName = Replace(strNewName, "C S ", "CS ") strNewName = Replace(strNewName, "C T ", "CT ") strNewName = Replace(strNewName, "C U ", "CU ") strNewName = Replace(strNewName, "C V ", "CV ") strNewName = Replace(strNewName, "C W ", "CW ") strNewName = Replace(strNewName, "C X ", "CX ") strNewName = Replace(strNewName, "C Y ", "CY ") strNewName = Replace(strNewName, "C Z ", "CZ ") strNewName = Replace(strNewName, "D A ", "DA ") strNewName = Replace(strNewName, "D B ", "DB ") strNewName = Replace(strNewName, "D C ", "DC ") strNewName = Replace(strNewName, "D D ", "DD ") strNewName = Replace(strNewName, "D E ", "DE ") strNewName = Replace(strNewName, "D F ", "DF ") strNewName = Replace(strNewName, "D G ", "DG ") strNewName = Replace(strNewName, "D H ", "DH ") strNewName = Replace(strNewName, "D I ", "DI ") strNewName = Replace(strNewName, "D J ", "DJ ") strNewName = Replace(strNewName, "D K ", "DK ") strNewName = Replace(strNewName, "D L ", "DL ") strNewName = Replace(strNewName, "D M ", "DM ") strNewName = Replace(strNewName, "D N ", "DN ") strNewName = Replace(strNewName, "D O ", "DO ") strNewName = Replace(strNewName, "D P ", "DP ") strNewName = Replace(strNewName, "D Q ", "DQ ") strNewName = Replace(strNewName, "D R ", "DR ") strNewName = Replace(strNewName, "D S ", "DS ") strNewName = Replace(strNewName, "D T ", "DT ") strNewName = Replace(strNewName, "D U ", "DU ") strNewName = Replace(strNewName, "D V ", "DV ") strNewName = Replace(strNewName, "D W ", "DW ") strNewName = Replace(strNewName, "D X ", "DX ") strNewName = Replace(strNewName, "D Y ", "DY ") strNewName = Replace(strNewName, "D Z ", "DZ ") strNewName = Replace(strNewName, "E A ", "EA ") strNewName = Replace(strNewName, "E B ", "EB ") strNewName = Replace(strNewName, "E C ", "EC ") strNewName = Replace(strNewName, "E D ", "ED ") strNewName = Replace(strNewName, "E E ", "EE ") strNewName = Replace(strNewName, "E F ", "EF ") strNewName = Replace(strNewName, "E G ", "EG ") strNewName = Replace(strNewName, "E H ", "EH ") strNewName = Replace(strNewName, "E I ", "EI ") strNewName = Replace(strNewName, "E J ", "EJ ") strNewName = Replace(strNewName, "E K ", "EK ") strNewName = Replace(strNewName, "E L ", "EL ") strNewName = Replace(strNewName, "E M ", "EM ") strNewName = Replace(strNewName, "E N ", "EN ") strNewName = Replace(strNewName, "E O ", "EO ") strNewName = Replace(strNewName, "E P ", "EP ") strNewName = Replace(strNewName, "E Q ", "EQ ") strNewName = Replace(strNewName, "E R ", "ER ") strNewName = Replace(strNewName, "E S ", "ES ") strNewName = Replace(strNewName, "E T ", "ET ") strNewName = Replace(strNewName, "E U ", "EU ") strNewName = Replace(strNewName, "E V ", "EV ") strNewName = Replace(strNewName, "E W ", "EW ") strNewName = Replace(strNewName, "E X ", "EX ") strNewName = Replace(strNewName, "E Y ", "EY ") strNewName = Replace(strNewName, "E Z ", "EZ ") strNewName = Replace(strNewName, "F A ", "FA ") strNewName = Replace(strNewName, "F B ", "FB ") strNewName = Replace(strNewName, "F C ", "FC ") strNewName = Replace(strNewName, "F D ", "FD ") strNewName = Replace(strNewName, "F E ", "FE ") strNewName = Replace(strNewName, "F F ", "FF ") strNewName = Replace(strNewName, "F G ", "FG ") strNewName = Replace(strNewName, "F H ", "FH ") strNewName = Replace(strNewName, "F I ", "FI ") strNewName = Replace(strNewName, "F J ", "FJ ") strNewName = Replace(strNewName, "F K ", "FK ") strNewName = Replace(strNewName, "F L ", "FL ") strNewName = Replace(strNewName, "F M ", "FM ") strNewName = Replace(strNewName, "F N ", "FN ") strNewName = Replace(strNewName, "F O ", "FO ") strNewName = Replace(strNewName, "F P ", "FP ") strNewName = Replace(strNewName, "F Q ", "FQ ") strNewName = Replace(strNewName, "F R ", "FR ") strNewName = Replace(strNewName, "F S ", "FS ") strNewName = Replace(strNewName, "F T ", "FT ") strNewName = Replace(strNewName, "F U ", "FU ") strNewName = Replace(strNewName, "F V ", "FV ") strNewName = Replace(strNewName, "F W ", "FW ") strNewName = Replace(strNewName, "F X ", "FX ") strNewName = Replace(strNewName, "F Y ", "FY ") strNewName = Replace(strNewName, "F Z ", "FZ ") strNewName = Replace(strNewName, "G A ", "GA ") strNewName = Replace(strNewName, "G B ", "GB ") strNewName = Replace(strNewName, "G C ", "GC ") strNewName = Replace(strNewName, "G D ", "GD ") strNewName = Replace(strNewName, "G E ", "GE ") strNewName = Replace(strNewName, "G F ", "GF ") strNewName = Replace(strNewName, "G G ", "GG ") strNewName = Replace(strNewName, "G H ", "GH ") strNewName = Replace(strNewName, "G I ", "GI ") strNewName = Replace(strNewName, "G J ", "FJ ") strNewName = Replace(strNewName, "G K ", "GK ") strNewName = Replace(strNewName, "G L ", "GL ") strNewName = Replace(strNewName, "G M ", "GM ") strNewName = Replace(strNewName, "G N ", "GN ") strNewName = Replace(strNewName, "G O ", "GO ") strNewName = Replace(strNewName, "G P ", "GP ") strNewName = Replace(strNewName, "G Q ", "GQ ") strNewName = Replace(strNewName, "G R ", "GR ") strNewName = Replace(strNewName, "G S ", "GS ") strNewName = Replace(strNewName, "G T ", "GT ") strNewName = Replace(strNewName, "G U ", "GU ") strNewName = Replace(strNewName, "G V ", "GV ") strNewName = Replace(strNewName, "G W ", "GW ") strNewName = Replace(strNewName, "G X ", "GX ") strNewName = Replace(strNewName, "G Y ", "GY ") strNewName = Replace(strNewName, "G Z ", "GZ ") strNewName = Replace(strNewName, "H A ", "HA ") strNewName = Replace(strNewName, "H B ", "HB ") strNewName = Replace(strNewName, "H C ", "HC ") strNewName = Replace(strNewName, "H D ", "HD ") strNewName = Replace(strNewName, "H E ", "HE ") strNewName = Replace(strNewName, "H F ", "HF ") strNewName = Replace(strNewName, "H G ", "HG ") strNewName = Replace(strNewName, "H H ", "HH ") strNewName = Replace(strNewName, "H I ", "HI ") strNewName = Replace(strNewName, "H J ", "HJ ") strNewName = Replace(strNewName, "H K ", "HK ") strNewName = Replace(strNewName, "H L ", "HL ") strNewName = Replace(strNewName, "H M ", "HM ") strNewName = Replace(strNewName, "H N ", "HN ") strNewName = Replace(strNewName, "H O ", "HO ") strNewName = Replace(strNewName, "H P ", "HP ") strNewName = Replace(strNewName, "H Q ", "HQ ") strNewName = Replace(strNewName, "H R ", "HR ") strNewName = Replace(strNewName, "H S ", "HS ") strNewName = Replace(strNewName, "H T ", "HT ") strNewName = Replace(strNewName, "H U ", "HU ") strNewName = Replace(strNewName, "H V ", "HV ") strNewName = Replace(strNewName, "H W ", "HW ") strNewName = Replace(strNewName, "H X ", "HX ") strNewName = Replace(strNewName, "H Y ", "HY ") strNewName = Replace(strNewName, "H Z ", "HZ ") strNewName = Replace(strNewName, "I A ", "IA ") strNewName = Replace(strNewName, "I B ", "IB ") strNewName = Replace(strNewName, "I C ", "IC ") strNewName = Replace(strNewName, "I D ", "ID ") strNewName = Replace(strNewName, "I E ", "IE ") strNewName = Replace(strNewName, "I F ", "IF ") strNewName = Replace(strNewName, "I G ", "IG ") strNewName = Replace(strNewName, "I H ", "IH ") strNewName = Replace(strNewName, "I I ", "II ") strNewName = Replace(strNewName, "I J ", "IJ ") strNewName = Replace(strNewName, "I K ", "IK ") strNewName = Replace(strNewName, "I L ", "IL ") strNewName = Replace(strNewName, "I M ", "IM ") strNewName = Replace(strNewName, "I N ", "IN ") strNewName = Replace(strNewName, "I O ", "IO ") strNewName = Replace(strNewName, "I P ", "IP ") strNewName = Replace(strNewName, "I Q ", "IQ ") strNewName = Replace(strNewName, "I R ", "IR ") strNewName = Replace(strNewName, "I S ", "IS ") strNewName = Replace(strNewName, "I T ", "IT ") strNewName = Replace(strNewName, "I U ", "IU ") strNewName = Replace(strNewName, "I V ", "IV ") strNewName = Replace(strNewName, "I W ", "IW ") strNewName = Replace(strNewName, "I X ", "IX ") strNewName = Replace(strNewName, "I Y ", "IY ") strNewName = Replace(strNewName, "I Z ", "IZ ") strNewName = Replace(strNewName, "J A ", "JA ") strNewName = Replace(strNewName, "J B ", "JB ") strNewName = Replace(strNewName, "J C ", "JC ") strNewName = Replace(strNewName, "J D ", "JD ") strNewName = Replace(strNewName, "J E ", "JE ") strNewName = Replace(strNewName, "J F ", "JF ") strNewName = Replace(strNewName, "J G ", "JG ") strNewName = Replace(strNewName, "J H ", "JH ") strNewName = Replace(strNewName, "J I ", "JI ") strNewName = Replace(strNewName, "J J ", "JJ ") strNewName = Replace(strNewName, "J K ", "JK ") strNewName = Replace(strNewName, "J L ", "JL ") strNewName = Replace(strNewName, "J M ", "JM ") strNewName = Replace(strNewName, "J N ", "JN ") strNewName = Replace(strNewName, "J O ", "JO ") strNewName = Replace(strNewName, "J P ", "JP ") strNewName = Replace(strNewName, "J Q ", "JQ ") strNewName = Replace(strNewName, "J R ", "JR ") strNewName = Replace(strNewName, "J S ", "JS ") strNewName = Replace(strNewName, "J T ", "JT ") strNewName = Replace(strNewName, "J U ", "JU ") strNewName = Replace(strNewName, "J V ", "JV ") strNewName = Replace(strNewName, "J W ", "JW ") strNewName = Replace(strNewName, "J X ", "JX ") strNewName = Replace(strNewName, "J Y ", "JY ") strNewName = Replace(strNewName, "J Z ", "JZ ") strNewName = Replace(strNewName, "K A ", "KA ") strNewName = Replace(strNewName, "K B ", "KB ") strNewName = Replace(strNewName, "K C ", "KC ") strNewName = Replace(strNewName, "K D ", "KD ") strNewName = Replace(strNewName, "K E ", "KE ") strNewName = Replace(strNewName, "K F ", "KF ") strNewName = Replace(strNewName, "K G ", "KG ") strNewName = Replace(strNewName, "K H ", "KH ") strNewName = Replace(strNewName, "K I ", "KI ") strNewName = Replace(strNewName, "K J ", "KJ ") strNewName = Replace(strNewName, "K K ", "KK ") strNewName = Replace(strNewName, "K L ", "KL ") strNewName = Replace(strNewName, "K M ", "KM ") strNewName = Replace(strNewName, "K N ", "KN ") strNewName = Replace(strNewName, "K O ", "KO ") strNewName = Replace(strNewName, "K P ", "KP ") strNewName = Replace(strNewName, "K Q ", "KQ ") strNewName = Replace(strNewName, "K R ", "KR ") strNewName = Replace(strNewName, "K S ", "KS ") strNewName = Replace(strNewName, "K T ", "KT ") strNewName = Replace(strNewName, "K U ", "KU ") strNewName = Replace(strNewName, "K V ", "KV ") strNewName = Replace(strNewName, "K W ", "KW ") strNewName = Replace(strNewName, "K X ", "KX ") strNewName = Replace(strNewName, "K Y ", "KY ") strNewName = Replace(strNewName, "K Z ", "KZ ") strNewName = Replace(strNewName, "L A ", "LA ") strNewName = Replace(strNewName, "L B ", "LB ") strNewName = Replace(strNewName, "L C ", "LC ") strNewName = Replace(strNewName, "L D ", "LD ") strNewName = Replace(strNewName, "L E ", "LE ") strNewName = Replace(strNewName, "L F ", "LF ") strNewName = Replace(strNewName, "L G ", "LG ") strNewName = Replace(strNewName, "L H ", "LH ") strNewName = Replace(strNewName, "L I ", "LI ") strNewName = Replace(strNewName, "L J ", "LJ ") strNewName = Replace(strNewName, "L K ", "LK ") strNewName = Replace(strNewName, "L L ", "LL ") strNewName = Replace(strNewName, "L M ", "LM ") strNewName = Replace(strNewName, "L N ", "LN ") strNewName = Replace(strNewName, "L O ", "LO ") strNewName = Replace(strNewName, "L P ", "LP ") strNewName = Replace(strNewName, "L Q ", "LQ ") strNewName = Replace(strNewName, "L R ", "LR ") strNewName = Replace(strNewName, "L S ", "LS ") strNewName = Replace(strNewName, "L T ", "LT ") strNewName = Replace(strNewName, "L U ", "LU ") strNewName = Replace(strNewName, "L V ", "LV ") strNewName = Replace(strNewName, "L W ", "LW ") strNewName = Replace(strNewName, "L X ", "LX ") strNewName = Replace(strNewName, "L Y ", "LY ") strNewName = Replace(strNewName, "L Z ", "LZ ") strNewName = Replace(strNewName, "M A ", "MA ") strNewName = Replace(strNewName, "M B ", "MB ") strNewName = Replace(strNewName, "M C ", "MC ") strNewName = Replace(strNewName, "M D ", "MD ") strNewName = Replace(strNewName, "M E ", "ME ") strNewName = Replace(strNewName, "M F ", "MF ") strNewName = Replace(strNewName, "M G ", "MG ") strNewName = Replace(strNewName, "M H ", "MH ") strNewName = Replace(strNewName, "M I ", "MI ") strNewName = Replace(strNewName, "M J ", "MJ ") strNewName = Replace(strNewName, "M K ", "MK ") strNewName = Replace(strNewName, "M L ", "ML ") strNewName = Replace(strNewName, "M M ", "MM ") strNewName = Replace(strNewName, "M N ", "MN ") strNewName = Replace(strNewName, "M O ", "MO ") strNewName = Replace(strNewName, "M P ", "MP ") strNewName = Replace(strNewName, "M Q ", "MQ ") strNewName = Replace(strNewName, "M R ", "MR ") strNewName = Replace(strNewName, "M S ", "MS ") strNewName = Replace(strNewName, "M T ", "MT ") strNewName = Replace(strNewName, "M U ", "MU ") strNewName = Replace(strNewName, "M V ", "MV ") strNewName = Replace(strNewName, "M W ", "MW ") strNewName = Replace(strNewName, "M X ", "MX ") strNewName = Replace(strNewName, "M Y ", "MY ") strNewName = Replace(strNewName, "M Z ", "MZ ") strNewName = Replace(strNewName, "N A ", "NA ") strNewName = Replace(strNewName, "N B ", "NB ") strNewName = Replace(strNewName, "N C ", "NC ") strNewName = Replace(strNewName, "N D ", "ND ") strNewName = Replace(strNewName, "N E ", "NE ") strNewName = Replace(strNewName, "N F ", "NF ") strNewName = Replace(strNewName, "N G ", "NG ") strNewName = Replace(strNewName, "N H ", "NH ") strNewName = Replace(strNewName, "N I ", "NI ") strNewName = Replace(strNewName, "N J ", "NJ ") strNewName = Replace(strNewName, "N K ", "NK ") strNewName = Replace(strNewName, "N L ", "NL ") strNewName = Replace(strNewName, "N M ", "NM ") strNewName = Replace(strNewName, "N N ", "NN ") strNewName = Replace(strNewName, "N O ", "NO ") strNewName = Replace(strNewName, "N P ", "NP ") strNewName = Replace(strNewName, "N Q ", "NQ ") strNewName = Replace(strNewName, "N R ", "NR ") strNewName = Replace(strNewName, "N S ", "NS ") strNewName = Replace(strNewName, "N T ", "NT ") strNewName = Replace(strNewName, "N U ", "NU ") strNewName = Replace(strNewName, "N V ", "NV ") strNewName = Replace(strNewName, "N W ", "NW ") strNewName = Replace(strNewName, "N X ", "NX ") strNewName = Replace(strNewName, "N Y ", "NY ") strNewName = Replace(strNewName, "N Z ", "NZ ") strNewName = Replace(strNewName, "O A ", "OA ") strNewName = Replace(strNewName, "O B ", "OB ") strNewName = Replace(strNewName, "O C ", "OC ") strNewName = Replace(strNewName, "O D ", "OD ") strNewName = Replace(strNewName, "O E ", "OE ") strNewName = Replace(strNewName, "O F ", "OF ") strNewName = Replace(strNewName, "O G ", "OG ") strNewName = Replace(strNewName, "O H ", "OH ") strNewName = Replace(strNewName, "O I ", "OI ") strNewName = Replace(strNewName, "O J ", "OJ ") strNewName = Replace(strNewName, "O K ", "OK ") strNewName = Replace(strNewName, "O L ", "OL ") strNewName = Replace(strNewName, "O M ", "OM ") strNewName = Replace(strNewName, "O N ", "ON ") strNewName = Replace(strNewName, "O O ", "OO ") strNewName = Replace(strNewName, "O P ", "OP ") strNewName = Replace(strNewName, "O Q ", "OQ ") strNewName = Replace(strNewName, "O R ", "OR ") strNewName = Replace(strNewName, "O S ", "OS ") strNewName = Replace(strNewName, "O T ", "OT ") strNewName = Replace(strNewName, "O U ", "OU ") strNewName = Replace(strNewName, "O V ", "OV ") strNewName = Replace(strNewName, "O W ", "OW ") strNewName = Replace(strNewName, "O X ", "OX ") strNewName = Replace(strNewName, "O Y ", "OY ") strNewName = Replace(strNewName, "O Z ", "OZ ") strNewName = Replace(strNewName, "P A ", "PA ") strNewName = Replace(strNewName, "P B ", "PB ") strNewName = Replace(strNewName, "P C ", "PC ") strNewName = Replace(strNewName, "P D ", "PD ") strNewName = Replace(strNewName, "P E ", "PE ") strNewName = Replace(strNewName, "P F ", "PF ") strNewName = Replace(strNewName, "P G ", "PG ") strNewName = Replace(strNewName, "P H ", "PH ") strNewName = Replace(strNewName, "P I ", "PI ") strNewName = Replace(strNewName, "P J ", "PJ ") strNewName = Replace(strNewName, "P K ", "PK ") strNewName = Replace(strNewName, "P L ", "PL ") strNewName = Replace(strNewName, "P M ", "PM ") strNewName = Replace(strNewName, "P N ", "PN ") strNewName = Replace(strNewName, "P O ", "PO ") strNewName = Replace(strNewName, "P P ", "PP ") strNewName = Replace(strNewName, "P Q ", "PQ ") strNewName = Replace(strNewName, "P R ", "PR ") strNewName = Replace(strNewName, "P S ", "PS ") strNewName = Replace(strNewName, "P T ", "PT ") strNewName = Replace(strNewName, "P U ", "PU ") strNewName = Replace(strNewName, "P V ", "PV ") strNewName = Replace(strNewName, "P W ", "PW ") strNewName = Replace(strNewName, "P X ", "PX ") strNewName = Replace(strNewName, "P Y ", "PY ") strNewName = Replace(strNewName, "P Z ", "PZ ") strNewName = Replace(strNewName, "Q A ", "QA ") strNewName = Replace(strNewName, "Q B ", "QB ") strNewName = Replace(strNewName, "Q C ", "QC ") strNewName = Replace(strNewName, "Q D ", "QD ") strNewName = Replace(strNewName, "Q E ", "QE ") strNewName = Replace(strNewName, "Q F ", "QF ") strNewName = Replace(strNewName, "Q G ", "QG ") strNewName = Replace(strNewName, "Q H ", "QH ") strNewName = Replace(strNewName, "Q I ", "QI ") strNewName = Replace(strNewName, "Q J ", "QJ ") strNewName = Replace(strNewName, "Q K ", "QK ") strNewName = Replace(strNewName, "Q L ", "QL ") strNewName = Replace(strNewName, "Q M ", "QM ") strNewName = Replace(strNewName, "Q N ", "QN ") strNewName = Replace(strNewName, "Q O ", "QO ") strNewName = Replace(strNewName, "Q P ", "QP ") strNewName = Replace(strNewName, "Q Q ", "QQ ") strNewName = Replace(strNewName, "Q R ", "QR ") strNewName = Replace(strNewName, "Q S ", "QS ") strNewName = Replace(strNewName, "Q T ", "QT ") strNewName = Replace(strNewName, "Q U ", "QU ") strNewName = Replace(strNewName, "Q V ", "QV ") strNewName = Replace(strNewName, "Q W ", "QW ") strNewName = Replace(strNewName, "Q X ", "QX ") strNewName = Replace(strNewName, "Q Y ", "QY ") strNewName = Replace(strNewName, "Q Z ", "QZ ") strNewName = Replace(strNewName, "R A ", "RA ") strNewName = Replace(strNewName, "R B ", "RB ") strNewName = Replace(strNewName, "R C ", "RC ") strNewName = Replace(strNewName, "R D ", "RD ") strNewName = Replace(strNewName, "R E ", "RE ") strNewName = Replace(strNewName, "R F ", "RF ") strNewName = Replace(strNewName, "R G ", "RG ") strNewName = Replace(strNewName, "R H ", "RH ") strNewName = Replace(strNewName, "R I ", "RI ") strNewName = Replace(strNewName, "R J ", "RJ ") strNewName = Replace(strNewName, "R K ", "RK ") strNewName = Replace(strNewName, "R L ", "RL ") strNewName = Replace(strNewName, "R M ", "RM ") strNewName = Replace(strNewName, "R N ", "RN ") strNewName = Replace(strNewName, "R O ", "RO ") strNewName = Replace(strNewName, "R P ", "RP ") strNewName = Replace(strNewName, "R Q ", "RQ ") strNewName = Replace(strNewName, "R R ", "RR ") strNewName = Replace(strNewName, "R S ", "RS ") strNewName = Replace(strNewName, "R T ", "RT ") strNewName = Replace(strNewName, "R U ", "RU ") strNewName = Replace(strNewName, "R V ", "RV ") strNewName = Replace(strNewName, "R W ", "RW ") strNewName = Replace(strNewName, "R X ", "RX ") strNewName = Replace(strNewName, "R Y ", "RY ") strNewName = Replace(strNewName, "R Z ", "RZ ") strNewName = Replace(strNewName, "S A ", "SA ") strNewName = Replace(strNewName, "S B ", "SB ") strNewName = Replace(strNewName, "S C ", "SC ") strNewName = Replace(strNewName, "S D ", "SD ") strNewName = Replace(strNewName, "S E ", "SE ") strNewName = Replace(strNewName, "S F ", "SF ") strNewName = Replace(strNewName, "S G ", "SG ") strNewName = Replace(strNewName, "S H ", "SH ") strNewName = Replace(strNewName, "S I ", "SI ") strNewName = Replace(strNewName, "S J ", "SJ ") strNewName = Replace(strNewName, "S K ", "SK ") strNewName = Replace(strNewName, "S L ", "SL ") strNewName = Replace(strNewName, "S M ", "SM ") strNewName = Replace(strNewName, "S N ", "SN ") strNewName = Replace(strNewName, "S O ", "SO ") strNewName = Replace(strNewName, "S P ", "SP ") strNewName = Replace(strNewName, "S Q ", "SQ ") strNewName = Replace(strNewName, "S R ", "SR ") strNewName = Replace(strNewName, "S S ", "SS ") strNewName = Replace(strNewName, "S T ", "ST ") strNewName = Replace(strNewName, "S U ", "SU ") strNewName = Replace(strNewName, "S V ", "SV ") strNewName = Replace(strNewName, "S W ", "SW ") strNewName = Replace(strNewName, "S X ", "SX ") strNewName = Replace(strNewName, "S Y ", "SY ") strNewName = Replace(strNewName, "S Z ", "SZ ") strNewName = Replace(strNewName, "T A ", "TA ") strNewName = Replace(strNewName, "T B ", "TB ") strNewName = Replace(strNewName, "T C ", "TC ") strNewName = Replace(strNewName, "T D ", "TD ") strNewName = Replace(strNewName, "T E ", "TE ") strNewName = Replace(strNewName, "T F ", "TF ") strNewName = Replace(strNewName, "T G ", "TG ") strNewName = Replace(strNewName, "T H ", "TH ") strNewName = Replace(strNewName, "T I ", "TI ") strNewName = Replace(strNewName, "T J ", "TJ ") strNewName = Replace(strNewName, "T K ", "TK ") strNewName = Replace(strNewName, "T L ", "TL ") strNewName = Replace(strNewName, "T M ", "TM ") strNewName = Replace(strNewName, "T N ", "TN ") strNewName = Replace(strNewName, "T O ", "TO ") strNewName = Replace(strNewName, "T P ", "TP ") strNewName = Replace(strNewName, "T Q ", "TQ ") strNewName = Replace(strNewName, "T R ", "TR ") strNewName = Replace(strNewName, "T S ", "TS ") strNewName = Replace(strNewName, "T T ", "TT ") strNewName = Replace(strNewName, "T U ", "TU ") strNewName = Replace(strNewName, "T V ", "TV ") strNewName = Replace(strNewName, "T W ", "TW ") strNewName = Replace(strNewName, "T X ", "TX ") strNewName = Replace(strNewName, "T Y ", "TY ") strNewName = Replace(strNewName, "T Z ", "TZ ") strNewName = Replace(strNewName, "U A ", "UA ") strNewName = Replace(strNewName, "U B ", "UB ") strNewName = Replace(strNewName, "U C ", "UC ") strNewName = Replace(strNewName, "U D ", "UD ") strNewName = Replace(strNewName, "U E ", "UE ") strNewName = Replace(strNewName, "U F ", "UF ") strNewName = Replace(strNewName, "U G ", "UG ") strNewName = Replace(strNewName, "U H ", "UH ") strNewName = Replace(strNewName, "U I ", "UI ") strNewName = Replace(strNewName, "U J ", "UJ ") strNewName = Replace(strNewName, "U K ", "UK ") strNewName = Replace(strNewName, "U L ", "UL ") strNewName = Replace(strNewName, "U M ", "UM ") strNewName = Replace(strNewName, "U N ", "UN ") strNewName = Replace(strNewName, "U O ", "UO ") strNewName = Replace(strNewName, "U P ", "UP ") strNewName = Replace(strNewName, "U Q ", "UQ ") strNewName = Replace(strNewName, "U R ", "UR ") strNewName = Replace(strNewName, "U S ", "US ") strNewName = Replace(strNewName, "U T ", "UT ") strNewName = Replace(strNewName, "U U ", "UU ") strNewName = Replace(strNewName, "U V ", "UV ") strNewName = Replace(strNewName, "U W ", "UW ") strNewName = Replace(strNewName, "U X ", "UX ") strNewName = Replace(strNewName, "U Y ", "UY ") strNewName = Replace(strNewName, "U Z ", "UZ ") strNewName = Replace(strNewName, "V A ", "VA ") strNewName = Replace(strNewName, "V B ", "VB ") strNewName = Replace(strNewName, "V C ", "VC ") strNewName = Replace(strNewName, "V D ", "VD ") strNewName = Replace(strNewName, "V E ", "VE ") strNewName = Replace(strNewName, "V F ", "VF ") strNewName = Replace(strNewName, "V G ", "VG ") strNewName = Replace(strNewName, "V H ", "VH ") strNewName = Replace(strNewName, "V I ", "VI ") strNewName = Replace(strNewName, "V J ", "VJ ") strNewName = Replace(strNewName, "V K ", "VK ") strNewName = Replace(strNewName, "V L ", "VL ") strNewName = Replace(strNewName, "V M ", "VM ") strNewName = Replace(strNewName, "V N ", "VN ") strNewName = Replace(strNewName, "V O ", "VO ") strNewName = Replace(strNewName, "V P ", "VP ") strNewName = Replace(strNewName, "V Q ", "VQ ") strNewName = Replace(strNewName, "V R ", "VR ") strNewName = Replace(strNewName, "V S ", "VS ") strNewName = Replace(strNewName, "V T ", "VT ") strNewName = Replace(strNewName, "V U ", "VU ") strNewName = Replace(strNewName, "V V ", "VV ") strNewName = Replace(strNewName, "V W ", "VW ") strNewName = Replace(strNewName, "V X ", "VX ") strNewName = Replace(strNewName, "V Y ", "VY ") strNewName = Replace(strNewName, "V Z ", "VZ ") strNewName = Replace(strNewName, "W A ", "WA ") strNewName = Replace(strNewName, "W B ", "WB ") strNewName = Replace(strNewName, "W C ", "WC ") strNewName = Replace(strNewName, "W D ", "WD ") strNewName = Replace(strNewName, "W E ", "WE ") strNewName = Replace(strNewName, "W F ", "WF ") strNewName = Replace(strNewName, "W G ", "WG ") strNewName = Replace(strNewName, "W H ", "WH ") strNewName = Replace(strNewName, "W I ", "WI ") strNewName = Replace(strNewName, "W J ", "WJ ") strNewName = Replace(strNewName, "W K ", "WK ") strNewName = Replace(strNewName, "W L ", "WL ") strNewName = Replace(strNewName, "W M ", "WM ") strNewName = Replace(strNewName, "W N ", "WN ") strNewName = Replace(strNewName, "W O ", "WO ") strNewName = Replace(strNewName, "W P ", "WP ") strNewName = Replace(strNewName, "W Q ", "WQ ") strNewName = Replace(strNewName, "W R ", "WR ") strNewName = Replace(strNewName, "W S ", "WS ") strNewName = Replace(strNewName, "W T ", "WT ") strNewName = Replace(strNewName, "W U ", "WU ") strNewName = Replace(strNewName, "W V ", "WV ") strNewName = Replace(strNewName, "W W ", "WW ") strNewName = Replace(strNewName, "W X ", "WX ") strNewName = Replace(strNewName, "W Y ", "WY ") strNewName = Replace(strNewName, "W Z ", "WZ ") strNewName = Replace(strNewName, "X A ", "XA ") strNewName = Replace(strNewName, "X B ", "XB ") strNewName = Replace(strNewName, "X C ", "XC ") strNewName = Replace(strNewName, "X D ", "XD ") strNewName = Replace(strNewName, "X E ", "XE ") strNewName = Replace(strNewName, "X F ", "XF ") strNewName = Replace(strNewName, "X G ", "XG ") strNewName = Replace(strNewName, "X H ", "XH ") strNewName = Replace(strNewName, "X I ", "XI ") strNewName = Replace(strNewName, "X J ", "XJ ") strNewName = Replace(strNewName, "X K ", "XK ") strNewName = Replace(strNewName, "X L ", "XL ") strNewName = Replace(strNewName, "X M ", "XM ") strNewName = Replace(strNewName, "X N ", "XN ") strNewName = Replace(strNewName, "X O ", "XO ") strNewName = Replace(strNewName, "X P ", "XP ") strNewName = Replace(strNewName, "X Q ", "XQ ") strNewName = Replace(strNewName, "X R ", "XR ") strNewName = Replace(strNewName, "X S ", "XS ") strNewName = Replace(strNewName, "X T ", "XT ") strNewName = Replace(strNewName, "X U ", "XU ") strNewName = Replace(strNewName, "X V ", "XV ") strNewName = Replace(strNewName, "X W ", "XW ") strNewName = Replace(strNewName, "X X ", "XX ") strNewName = Replace(strNewName, "X Y ", "XY ") strNewName = Replace(strNewName, "X Z ", "XZ ") strNewName = Replace(strNewName, "Y A ", "YA ") strNewName = Replace(strNewName, "Y B ", "YB ") strNewName = Replace(strNewName, "Y C ", "YC ") strNewName = Replace(strNewName, "Y D ", "YD ") strNewName = Replace(strNewName, "Y E ", "YE ") strNewName = Replace(strNewName, "Y F ", "YF ") strNewName = Replace(strNewName, "Y G ", "YG ") strNewName = Replace(strNewName, "Y H ", "XH ") strNewName = Replace(strNewName, "Y I ", "YI ") strNewName = Replace(strNewName, "Y J ", "YJ ") strNewName = Replace(strNewName, "Y K ", "YK ") strNewName = Replace(strNewName, "Y L ", "YL ") strNewName = Replace(strNewName, "Y M ", "YM ") strNewName = Replace(strNewName, "Y N ", "YN ") strNewName = Replace(strNewName, "Y O ", "YO ") strNewName = Replace(strNewName, "Y P ", "YP ") strNewName = Replace(strNewName, "Y Q ", "YQ ") strNewName = Replace(strNewName, "Y R ", "YR ") strNewName = Replace(strNewName, "Y S ", "YS ") strNewName = Replace(strNewName, "Y T ", "YT ") strNewName = Replace(strNewName, "Y U ", "YU ") strNewName = Replace(strNewName, "Y V ", "YV ") strNewName = Replace(strNewName, "Y W ", "YW ") strNewName = Replace(strNewName, "Y X ", "YX ") strNewName = Replace(strNewName, "Y Y ", "YY ") strNewName = Replace(strNewName, "Y Z ", "YZ ") strNewName = Replace(strNewName, "Z A ", "ZA ") strNewName = Replace(strNewName, "Z B ", "ZB ") strNewName = Replace(strNewName, "Z C ", "ZC ") strNewName = Replace(strNewName, "Z D ", "ZD ") strNewName = Replace(strNewName, "Z E ", "ZE ") strNewName = Replace(strNewName, "Z F ", "ZF ") strNewName = Replace(strNewName, "Z G ", "ZG ") strNewName = Replace(strNewName, "Z H ", "ZH ") strNewName = Replace(strNewName, "Z I ", "ZI ") strNewName = Replace(strNewName, "Z J ", "ZJ ") strNewName = Replace(strNewName, "Z K ", "ZK ") strNewName = Replace(strNewName, "Z L ", "ZL ") strNewName = Replace(strNewName, "Z M ", "ZM ") strNewName = Replace(strNewName, "Z N ", "ZN ") strNewName = Replace(strNewName, "Z O ", "ZO ") strNewName = Replace(strNewName, "Z P ", "ZP ") strNewName = Replace(strNewName, "Z Q ", "ZQ ") strNewName = Replace(strNewName, "Z R ", "ZR ") strNewName = Replace(strNewName, "Z S ", "ZS ") strNewName = Replace(strNewName, "Z T ", "ZT ") strNewName = Replace(strNewName, "Z U ", "ZU ") strNewName = Replace(strNewName, "Z V ", "ZV ") strNewName = Replace(strNewName, "Z W ", "ZW ") strNewName = Replace(strNewName, "Z X ", "ZX ") strNewName = Replace(strNewName, "Z Y ", "ZY ") strNewName = Replace(strNewName, "Z Z ", "ZZ ") end if 'Pushes 3rd Initial together like George R R R Martin to George RRR Martin if fCapMagic1 = True then strNewName = Replace(strNewName, "A A ", "AA ") strNewName = Replace(strNewName, "A B ", "AB ") strNewName = Replace(strNewName, "A C ", "AC ") strNewName = Replace(strNewName, "A D ", "AD ") strNewName = Replace(strNewName, "A E ", "AE ") strNewName = Replace(strNewName, "A F ", "AF ") strNewName = Replace(strNewName, "A G ", "AG ") strNewName = Replace(strNewName, "A H ", "AH ") strNewName = Replace(strNewName, "A I ", "AI ") strNewName = Replace(strNewName, "A J ", "AJ ") strNewName = Replace(strNewName, "A K ", "AK ") strNewName = Replace(strNewName, "A L ", "AL ") strNewName = Replace(strNewName, "A M ", "AM ") strNewName = Replace(strNewName, "A N ", "AN ") strNewName = Replace(strNewName, "A O ", "AO ") strNewName = Replace(strNewName, "A P ", "AP ") strNewName = Replace(strNewName, "A Q ", "AQ ") strNewName = Replace(strNewName, "A R ", "AR ") strNewName = Replace(strNewName, "A S ", "AS ") strNewName = Replace(strNewName, "A T ", "AT ") strNewName = Replace(strNewName, "A U ", "AU ") strNewName = Replace(strNewName, "A V ", "AV ") strNewName = Replace(strNewName, "A W ", "AW ") strNewName = Replace(strNewName, "A X ", "AX ") strNewName = Replace(strNewName, "A Y ", "AY ") strNewName = Replace(strNewName, "A Z ", "AZ ") strNewName = Replace(strNewName, "B A ", "BA ") strNewName = Replace(strNewName, "B B ", "BB ") strNewName = Replace(strNewName, "B C ", "BC ") strNewName = Replace(strNewName, "B D ", "BD ") strNewName = Replace(strNewName, "B E ", "BE ") strNewName = Replace(strNewName, "B F ", "BF ") strNewName = Replace(strNewName, "B G ", "BG ") strNewName = Replace(strNewName, "B H ", "BH ") strNewName = Replace(strNewName, "B I ", "BI ") strNewName = Replace(strNewName, "B J ", "BJ ") strNewName = Replace(strNewName, "B K ", "BK ") strNewName = Replace(strNewName, "B L ", "BL ") strNewName = Replace(strNewName, "B M ", "BM ") strNewName = Replace(strNewName, "B N ", "BN ") strNewName = Replace(strNewName, "B O ", "BO ") strNewName = Replace(strNewName, "B P ", "BP ") strNewName = Replace(strNewName, "B Q ", "BQ ") strNewName = Replace(strNewName, "B R ", "BR ") strNewName = Replace(strNewName, "B S ", "BS ") strNewName = Replace(strNewName, "B T ", "BT ") strNewName = Replace(strNewName, "B U ", "BU ") strNewName = Replace(strNewName, "B V ", "BV ") strNewName = Replace(strNewName, "B W ", "BW ") strNewName = Replace(strNewName, "B X ", "BX ") strNewName = Replace(strNewName, "B Y ", "BY ") strNewName = Replace(strNewName, "B Z ", "BZ ") strNewName = Replace(strNewName, "C A ", "CA ") strNewName = Replace(strNewName, "C B ", "CB ") strNewName = Replace(strNewName, "C C ", "CC ") strNewName = Replace(strNewName, "C D ", "CD ") strNewName = Replace(strNewName, "C E ", "CE ") strNewName = Replace(strNewName, "C F ", "CF ") strNewName = Replace(strNewName, "C G ", "CG ") strNewName = Replace(strNewName, "C H ", "CH ") strNewName = Replace(strNewName, "C I ", "CI ") strNewName = Replace(strNewName, "C J ", "CJ ") strNewName = Replace(strNewName, "C K ", "CK ") strNewName = Replace(strNewName, "C L ", "CL ") strNewName = Replace(strNewName, "C M ", "CM ") strNewName = Replace(strNewName, "C N ", "CN ") strNewName = Replace(strNewName, "C O ", "CO ") strNewName = Replace(strNewName, "C P ", "CP ") strNewName = Replace(strNewName, "C Q ", "CQ ") strNewName = Replace(strNewName, "C R ", "CR ") strNewName = Replace(strNewName, "C S ", "CS ") strNewName = Replace(strNewName, "C T ", "CT ") strNewName = Replace(strNewName, "C U ", "CU ") strNewName = Replace(strNewName, "C V ", "CV ") strNewName = Replace(strNewName, "C W ", "CW ") strNewName = Replace(strNewName, "C X ", "CX ") strNewName = Replace(strNewName, "C Y ", "CY ") strNewName = Replace(strNewName, "C Z ", "CZ ") strNewName = Replace(strNewName, "D A ", "DA ") strNewName = Replace(strNewName, "D B ", "DB ") strNewName = Replace(strNewName, "D C ", "DC ") strNewName = Replace(strNewName, "D D ", "DD ") strNewName = Replace(strNewName, "D E ", "DE ") strNewName = Replace(strNewName, "D F ", "DF ") strNewName = Replace(strNewName, "D G ", "DG ") strNewName = Replace(strNewName, "D H ", "DH ") strNewName = Replace(strNewName, "D I ", "DI ") strNewName = Replace(strNewName, "D J ", "DJ ") strNewName = Replace(strNewName, "D K ", "DK ") strNewName = Replace(strNewName, "D L ", "DL ") strNewName = Replace(strNewName, "D M ", "DM ") strNewName = Replace(strNewName, "D N ", "DN ") strNewName = Replace(strNewName, "D O ", "DO ") strNewName = Replace(strNewName, "D P ", "DP ") strNewName = Replace(strNewName, "D Q ", "DQ ") strNewName = Replace(strNewName, "D R ", "DR ") strNewName = Replace(strNewName, "D S ", "DS ") strNewName = Replace(strNewName, "D T ", "DT ") strNewName = Replace(strNewName, "D U ", "DU ") strNewName = Replace(strNewName, "D V ", "DV ") strNewName = Replace(strNewName, "D W ", "DW ") strNewName = Replace(strNewName, "D X ", "DX ") strNewName = Replace(strNewName, "D Y ", "DY ") strNewName = Replace(strNewName, "D Z ", "DZ ") strNewName = Replace(strNewName, "E A ", "EA ") strNewName = Replace(strNewName, "E B ", "EB ") strNewName = Replace(strNewName, "E C ", "EC ") strNewName = Replace(strNewName, "E D ", "ED ") strNewName = Replace(strNewName, "E E ", "EE ") strNewName = Replace(strNewName, "E F ", "EF ") strNewName = Replace(strNewName, "E G ", "EG ") strNewName = Replace(strNewName, "E H ", "EH ") strNewName = Replace(strNewName, "E I ", "EI ") strNewName = Replace(strNewName, "E J ", "EJ ") strNewName = Replace(strNewName, "E K ", "EK ") strNewName = Replace(strNewName, "E L ", "EL ") strNewName = Replace(strNewName, "E M ", "EM ") strNewName = Replace(strNewName, "E N ", "EN ") strNewName = Replace(strNewName, "E O ", "EO ") strNewName = Replace(strNewName, "E P ", "EP ") strNewName = Replace(strNewName, "E Q ", "EQ ") strNewName = Replace(strNewName, "E R ", "ER ") strNewName = Replace(strNewName, "E S ", "ES ") strNewName = Replace(strNewName, "E T ", "ET ") strNewName = Replace(strNewName, "E U ", "EU ") strNewName = Replace(strNewName, "E V ", "EV ") strNewName = Replace(strNewName, "E W ", "EW ") strNewName = Replace(strNewName, "E X ", "EX ") strNewName = Replace(strNewName, "E Y ", "EY ") strNewName = Replace(strNewName, "E Z ", "EZ ") strNewName = Replace(strNewName, "F A ", "FA ") strNewName = Replace(strNewName, "F B ", "FB ") strNewName = Replace(strNewName, "F C ", "FC ") strNewName = Replace(strNewName, "F D ", "FD ") strNewName = Replace(strNewName, "F E ", "FE ") strNewName = Replace(strNewName, "F F ", "FF ") strNewName = Replace(strNewName, "F G ", "FG ") strNewName = Replace(strNewName, "F H ", "FH ") strNewName = Replace(strNewName, "F I ", "FI ") strNewName = Replace(strNewName, "F J ", "FJ ") strNewName = Replace(strNewName, "F K ", "FK ") strNewName = Replace(strNewName, "F L ", "FL ") strNewName = Replace(strNewName, "F M ", "FM ") strNewName = Replace(strNewName, "F N ", "FN ") strNewName = Replace(strNewName, "F O ", "FO ") strNewName = Replace(strNewName, "F P ", "FP ") strNewName = Replace(strNewName, "F Q ", "FQ ") strNewName = Replace(strNewName, "F R ", "FR ") strNewName = Replace(strNewName, "F S ", "FS ") strNewName = Replace(strNewName, "F T ", "FT ") strNewName = Replace(strNewName, "F U ", "FU ") strNewName = Replace(strNewName, "F V ", "FV ") strNewName = Replace(strNewName, "F W ", "FW ") strNewName = Replace(strNewName, "F X ", "FX ") strNewName = Replace(strNewName, "F Y ", "FY ") strNewName = Replace(strNewName, "F Z ", "FZ ") strNewName = Replace(strNewName, "G A ", "GA ") strNewName = Replace(strNewName, "G B ", "GB ") strNewName = Replace(strNewName, "G C ", "GC ") strNewName = Replace(strNewName, "G D ", "GD ") strNewName = Replace(strNewName, "G E ", "GE ") strNewName = Replace(strNewName, "G F ", "GF ") strNewName = Replace(strNewName, "G G ", "GG ") strNewName = Replace(strNewName, "G H ", "GH ") strNewName = Replace(strNewName, "G I ", "GI ") strNewName = Replace(strNewName, "G J ", "FJ ") strNewName = Replace(strNewName, "G K ", "GK ") strNewName = Replace(strNewName, "G L ", "GL ") strNewName = Replace(strNewName, "G M ", "GM ") strNewName = Replace(strNewName, "G N ", "GN ") strNewName = Replace(strNewName, "G O ", "GO ") strNewName = Replace(strNewName, "G P ", "GP ") strNewName = Replace(strNewName, "G Q ", "GQ ") strNewName = Replace(strNewName, "G R ", "GR ") strNewName = Replace(strNewName, "G S ", "GS ") strNewName = Replace(strNewName, "G T ", "GT ") strNewName = Replace(strNewName, "G U ", "GU ") strNewName = Replace(strNewName, "G V ", "GV ") strNewName = Replace(strNewName, "G W ", "GW ") strNewName = Replace(strNewName, "G X ", "GX ") strNewName = Replace(strNewName, "G Y ", "GY ") strNewName = Replace(strNewName, "G Z ", "GZ ") strNewName = Replace(strNewName, "H A ", "HA ") strNewName = Replace(strNewName, "H B ", "HB ") strNewName = Replace(strNewName, "H C ", "HC ") strNewName = Replace(strNewName, "H D ", "HD ") strNewName = Replace(strNewName, "H E ", "HE ") strNewName = Replace(strNewName, "H F ", "HF ") strNewName = Replace(strNewName, "H G ", "HG ") strNewName = Replace(strNewName, "H H ", "HH ") strNewName = Replace(strNewName, "H I ", "HI ") strNewName = Replace(strNewName, "H J ", "HJ ") strNewName = Replace(strNewName, "H K ", "HK ") strNewName = Replace(strNewName, "H L ", "HL ") strNewName = Replace(strNewName, "H M ", "HM ") strNewName = Replace(strNewName, "H N ", "HN ") strNewName = Replace(strNewName, "H O ", "HO ") strNewName = Replace(strNewName, "H P ", "HP ") strNewName = Replace(strNewName, "H Q ", "HQ ") strNewName = Replace(strNewName, "H R ", "HR ") strNewName = Replace(strNewName, "H S ", "HS ") strNewName = Replace(strNewName, "H T ", "HT ") strNewName = Replace(strNewName, "H U ", "HU ") strNewName = Replace(strNewName, "H V ", "HV ") strNewName = Replace(strNewName, "H W ", "HW ") strNewName = Replace(strNewName, "H X ", "HX ") strNewName = Replace(strNewName, "H Y ", "HY ") strNewName = Replace(strNewName, "H Z ", "HZ ") strNewName = Replace(strNewName, "I A ", "IA ") strNewName = Replace(strNewName, "I B ", "IB ") strNewName = Replace(strNewName, "I C ", "IC ") strNewName = Replace(strNewName, "I D ", "ID ") strNewName = Replace(strNewName, "I E ", "IE ") strNewName = Replace(strNewName, "I F ", "IF ") strNewName = Replace(strNewName, "I G ", "IG ") strNewName = Replace(strNewName, "I H ", "IH ") strNewName = Replace(strNewName, "I I ", "II ") strNewName = Replace(strNewName, "I J ", "IJ ") strNewName = Replace(strNewName, "I K ", "IK ") strNewName = Replace(strNewName, "I L ", "IL ") strNewName = Replace(strNewName, "I M ", "IM ") strNewName = Replace(strNewName, "I N ", "IN ") strNewName = Replace(strNewName, "I O ", "IO ") strNewName = Replace(strNewName, "I P ", "IP ") strNewName = Replace(strNewName, "I Q ", "IQ ") strNewName = Replace(strNewName, "I R ", "IR ") strNewName = Replace(strNewName, "I S ", "IS ") strNewName = Replace(strNewName, "I T ", "IT ") strNewName = Replace(strNewName, "I U ", "IU ") strNewName = Replace(strNewName, "I V ", "IV ") strNewName = Replace(strNewName, "I W ", "IW ") strNewName = Replace(strNewName, "I X ", "IX ") strNewName = Replace(strNewName, "I Y ", "IY ") strNewName = Replace(strNewName, "I Z ", "IZ ") strNewName = Replace(strNewName, "J A ", "JA ") strNewName = Replace(strNewName, "J B ", "JB ") strNewName = Replace(strNewName, "J C ", "JC ") strNewName = Replace(strNewName, "J D ", "JD ") strNewName = Replace(strNewName, "J E ", "JE ") strNewName = Replace(strNewName, "J F ", "JF ") strNewName = Replace(strNewName, "J G ", "JG ") strNewName = Replace(strNewName, "J H ", "JH ") strNewName = Replace(strNewName, "J I ", "JI ") strNewName = Replace(strNewName, "J J ", "JJ ") strNewName = Replace(strNewName, "J K ", "JK ") strNewName = Replace(strNewName, "J L ", "JL ") strNewName = Replace(strNewName, "J M ", "JM ") strNewName = Replace(strNewName, "J N ", "JN ") strNewName = Replace(strNewName, "J O ", "JO ") strNewName = Replace(strNewName, "J P ", "JP ") strNewName = Replace(strNewName, "J Q ", "JQ ") strNewName = Replace(strNewName, "J R ", "JR ") strNewName = Replace(strNewName, "J S ", "JS ") strNewName = Replace(strNewName, "J T ", "JT ") strNewName = Replace(strNewName, "J U ", "JU ") strNewName = Replace(strNewName, "J V ", "JV ") strNewName = Replace(strNewName, "J W ", "JW ") strNewName = Replace(strNewName, "J X ", "JX ") strNewName = Replace(strNewName, "J Y ", "JY ") strNewName = Replace(strNewName, "J Z ", "JZ ") strNewName = Replace(strNewName, "K A ", "KA ") strNewName = Replace(strNewName, "K B ", "KB ") strNewName = Replace(strNewName, "K C ", "KC ") strNewName = Replace(strNewName, "K D ", "KD ") strNewName = Replace(strNewName, "K E ", "KE ") strNewName = Replace(strNewName, "K F ", "KF ") strNewName = Replace(strNewName, "K G ", "KG ") strNewName = Replace(strNewName, "K H ", "KH ") strNewName = Replace(strNewName, "K I ", "KI ") strNewName = Replace(strNewName, "K J ", "KJ ") strNewName = Replace(strNewName, "K K ", "KK ") strNewName = Replace(strNewName, "K L ", "KL ") strNewName = Replace(strNewName, "K M ", "KM ") strNewName = Replace(strNewName, "K N ", "KN ") strNewName = Replace(strNewName, "K O ", "KO ") strNewName = Replace(strNewName, "K P ", "KP ") strNewName = Replace(strNewName, "K Q ", "KQ ") strNewName = Replace(strNewName, "K R ", "KR ") strNewName = Replace(strNewName, "K S ", "KS ") strNewName = Replace(strNewName, "K T ", "KT ") strNewName = Replace(strNewName, "K U ", "KU ") strNewName = Replace(strNewName, "K V ", "KV ") strNewName = Replace(strNewName, "K W ", "KW ") strNewName = Replace(strNewName, "K X ", "KX ") strNewName = Replace(strNewName, "K Y ", "KY ") strNewName = Replace(strNewName, "K Z ", "KZ ") strNewName = Replace(strNewName, "L A ", "LA ") strNewName = Replace(strNewName, "L B ", "LB ") strNewName = Replace(strNewName, "L C ", "LC ") strNewName = Replace(strNewName, "L D ", "LD ") strNewName = Replace(strNewName, "L E ", "LE ") strNewName = Replace(strNewName, "L F ", "LF ") strNewName = Replace(strNewName, "L G ", "LG ") strNewName = Replace(strNewName, "L H ", "LH ") strNewName = Replace(strNewName, "L I ", "LI ") strNewName = Replace(strNewName, "L J ", "LJ ") strNewName = Replace(strNewName, "L K ", "LK ") strNewName = Replace(strNewName, "L L ", "LL ") strNewName = Replace(strNewName, "L M ", "LM ") strNewName = Replace(strNewName, "L N ", "LN ") strNewName = Replace(strNewName, "L O ", "LO ") strNewName = Replace(strNewName, "L P ", "LP ") strNewName = Replace(strNewName, "L Q ", "LQ ") strNewName = Replace(strNewName, "L R ", "LR ") strNewName = Replace(strNewName, "L S ", "LS ") strNewName = Replace(strNewName, "L T ", "LT ") strNewName = Replace(strNewName, "L U ", "LU ") strNewName = Replace(strNewName, "L V ", "LV ") strNewName = Replace(strNewName, "L W ", "LW ") strNewName = Replace(strNewName, "L X ", "LX ") strNewName = Replace(strNewName, "L Y ", "LY ") strNewName = Replace(strNewName, "L Z ", "LZ ") strNewName = Replace(strNewName, "M A ", "MA ") strNewName = Replace(strNewName, "M B ", "MB ") strNewName = Replace(strNewName, "M C ", "MC ") strNewName = Replace(strNewName, "M D ", "MD ") strNewName = Replace(strNewName, "M E ", "ME ") strNewName = Replace(strNewName, "M F ", "MF ") strNewName = Replace(strNewName, "M G ", "MG ") strNewName = Replace(strNewName, "M H ", "MH ") strNewName = Replace(strNewName, "M I ", "MI ") strNewName = Replace(strNewName, "M J ", "MJ ") strNewName = Replace(strNewName, "M K ", "MK ") strNewName = Replace(strNewName, "M L ", "ML ") strNewName = Replace(strNewName, "M M ", "MM ") strNewName = Replace(strNewName, "M N ", "MN ") strNewName = Replace(strNewName, "M O ", "MO ") strNewName = Replace(strNewName, "M P ", "MP ") strNewName = Replace(strNewName, "M Q ", "MQ ") strNewName = Replace(strNewName, "M R ", "MR ") strNewName = Replace(strNewName, "M S ", "MS ") strNewName = Replace(strNewName, "M T ", "MT ") strNewName = Replace(strNewName, "M U ", "MU ") strNewName = Replace(strNewName, "M V ", "MV ") strNewName = Replace(strNewName, "M W ", "MW ") strNewName = Replace(strNewName, "M X ", "MX ") strNewName = Replace(strNewName, "M Y ", "MY ") strNewName = Replace(strNewName, "M Z ", "MZ ") strNewName = Replace(strNewName, "N A ", "NA ") strNewName = Replace(strNewName, "N B ", "NB ") strNewName = Replace(strNewName, "N C ", "NC ") strNewName = Replace(strNewName, "N D ", "ND ") strNewName = Replace(strNewName, "N E ", "NE ") strNewName = Replace(strNewName, "N F ", "NF ") strNewName = Replace(strNewName, "N G ", "NG ") strNewName = Replace(strNewName, "N H ", "NH ") strNewName = Replace(strNewName, "N I ", "NI ") strNewName = Replace(strNewName, "N J ", "NJ ") strNewName = Replace(strNewName, "N K ", "NK ") strNewName = Replace(strNewName, "N L ", "NL ") strNewName = Replace(strNewName, "N M ", "NM ") strNewName = Replace(strNewName, "N N ", "NN ") strNewName = Replace(strNewName, "N O ", "NO ") strNewName = Replace(strNewName, "N P ", "NP ") strNewName = Replace(strNewName, "N Q ", "NQ ") strNewName = Replace(strNewName, "N R ", "NR ") strNewName = Replace(strNewName, "N S ", "NS ") strNewName = Replace(strNewName, "N T ", "NT ") strNewName = Replace(strNewName, "N U ", "NU ") strNewName = Replace(strNewName, "N V ", "NV ") strNewName = Replace(strNewName, "N W ", "NW ") strNewName = Replace(strNewName, "N X ", "NX ") strNewName = Replace(strNewName, "N Y ", "NY ") strNewName = Replace(strNewName, "N Z ", "NZ ") strNewName = Replace(strNewName, "O A ", "OA ") strNewName = Replace(strNewName, "O B ", "OB ") strNewName = Replace(strNewName, "O C ", "OC ") strNewName = Replace(strNewName, "O D ", "OD ") strNewName = Replace(strNewName, "O E ", "OE ") strNewName = Replace(strNewName, "O F ", "OF ") strNewName = Replace(strNewName, "O G ", "OG ") strNewName = Replace(strNewName, "O H ", "OH ") strNewName = Replace(strNewName, "O I ", "OI ") strNewName = Replace(strNewName, "O J ", "OJ ") strNewName = Replace(strNewName, "O K ", "OK ") strNewName = Replace(strNewName, "O L ", "OL ") strNewName = Replace(strNewName, "O M ", "OM ") strNewName = Replace(strNewName, "O N ", "ON ") strNewName = Replace(strNewName, "O O ", "OO ") strNewName = Replace(strNewName, "O P ", "OP ") strNewName = Replace(strNewName, "O Q ", "OQ ") strNewName = Replace(strNewName, "O R ", "OR ") strNewName = Replace(strNewName, "O S ", "OS ") strNewName = Replace(strNewName, "O T ", "OT ") strNewName = Replace(strNewName, "O U ", "OU ") strNewName = Replace(strNewName, "O V ", "OV ") strNewName = Replace(strNewName, "O W ", "OW ") strNewName = Replace(strNewName, "O X ", "OX ") strNewName = Replace(strNewName, "O Y ", "OY ") strNewName = Replace(strNewName, "O Z ", "OZ ") strNewName = Replace(strNewName, "P A ", "PA ") strNewName = Replace(strNewName, "P B ", "PB ") strNewName = Replace(strNewName, "P C ", "PC ") strNewName = Replace(strNewName, "P D ", "PD ") strNewName = Replace(strNewName, "P E ", "PE ") strNewName = Replace(strNewName, "P F ", "PF ") strNewName = Replace(strNewName, "P G ", "PG ") strNewName = Replace(strNewName, "P H ", "PH ") strNewName = Replace(strNewName, "P I ", "PI ") strNewName = Replace(strNewName, "P J ", "PJ ") strNewName = Replace(strNewName, "P K ", "PK ") strNewName = Replace(strNewName, "P L ", "PL ") strNewName = Replace(strNewName, "P M ", "PM ") strNewName = Replace(strNewName, "P N ", "PN ") strNewName = Replace(strNewName, "P O ", "PO ") strNewName = Replace(strNewName, "P P ", "PP ") strNewName = Replace(strNewName, "P Q ", "PQ ") strNewName = Replace(strNewName, "P R ", "PR ") strNewName = Replace(strNewName, "P S ", "PS ") strNewName = Replace(strNewName, "P T ", "PT ") strNewName = Replace(strNewName, "P U ", "PU ") strNewName = Replace(strNewName, "P V ", "PV ") strNewName = Replace(strNewName, "P W ", "PW ") strNewName = Replace(strNewName, "P X ", "PX ") strNewName = Replace(strNewName, "P Y ", "PY ") strNewName = Replace(strNewName, "P Z ", "PZ ") strNewName = Replace(strNewName, "Q A ", "QA ") strNewName = Replace(strNewName, "Q B ", "QB ") strNewName = Replace(strNewName, "Q C ", "QC ") strNewName = Replace(strNewName, "Q D ", "QD ") strNewName = Replace(strNewName, "Q E ", "QE ") strNewName = Replace(strNewName, "Q F ", "QF ") strNewName = Replace(strNewName, "Q G ", "QG ") strNewName = Replace(strNewName, "Q H ", "QH ") strNewName = Replace(strNewName, "Q I ", "QI ") strNewName = Replace(strNewName, "Q J ", "QJ ") strNewName = Replace(strNewName, "Q K ", "QK ") strNewName = Replace(strNewName, "Q L ", "QL ") strNewName = Replace(strNewName, "Q M ", "QM ") strNewName = Replace(strNewName, "Q N ", "QN ") strNewName = Replace(strNewName, "Q O ", "QO ") strNewName = Replace(strNewName, "Q P ", "QP ") strNewName = Replace(strNewName, "Q Q ", "QQ ") strNewName = Replace(strNewName, "Q R ", "QR ") strNewName = Replace(strNewName, "Q S ", "QS ") strNewName = Replace(strNewName, "Q T ", "QT ") strNewName = Replace(strNewName, "Q U ", "QU ") strNewName = Replace(strNewName, "Q V ", "QV ") strNewName = Replace(strNewName, "Q W ", "QW ") strNewName = Replace(strNewName, "Q X ", "QX ") strNewName = Replace(strNewName, "Q Y ", "QY ") strNewName = Replace(strNewName, "Q Z ", "QZ ") strNewName = Replace(strNewName, "R A ", "RA ") strNewName = Replace(strNewName, "R B ", "RB ") strNewName = Replace(strNewName, "R C ", "RC ") strNewName = Replace(strNewName, "R D ", "RD ") strNewName = Replace(strNewName, "R E ", "RE ") strNewName = Replace(strNewName, "R F ", "RF ") strNewName = Replace(strNewName, "R G ", "RG ") strNewName = Replace(strNewName, "R H ", "RH ") strNewName = Replace(strNewName, "R I ", "RI ") strNewName = Replace(strNewName, "R J ", "RJ ") strNewName = Replace(strNewName, "R K ", "RK ") strNewName = Replace(strNewName, "R L ", "RL ") strNewName = Replace(strNewName, "R M ", "RM ") strNewName = Replace(strNewName, "R N ", "RN ") strNewName = Replace(strNewName, "R O ", "RO ") strNewName = Replace(strNewName, "R P ", "RP ") strNewName = Replace(strNewName, "R Q ", "RQ ") strNewName = Replace(strNewName, "R R ", "RR ") strNewName = Replace(strNewName, "R S ", "RS ") strNewName = Replace(strNewName, "R T ", "RT ") strNewName = Replace(strNewName, "R U ", "RU ") strNewName = Replace(strNewName, "R V ", "RV ") strNewName = Replace(strNewName, "R W ", "RW ") strNewName = Replace(strNewName, "R X ", "RX ") strNewName = Replace(strNewName, "R Y ", "RY ") strNewName = Replace(strNewName, "R Z ", "RZ ") strNewName = Replace(strNewName, "S A ", "SA ") strNewName = Replace(strNewName, "S B ", "SB ") strNewName = Replace(strNewName, "S C ", "SC ") strNewName = Replace(strNewName, "S D ", "SD ") strNewName = Replace(strNewName, "S E ", "SE ") strNewName = Replace(strNewName, "S F ", "SF ") strNewName = Replace(strNewName, "S G ", "SG ") strNewName = Replace(strNewName, "S H ", "SH ") strNewName = Replace(strNewName, "S I ", "SI ") strNewName = Replace(strNewName, "S J ", "SJ ") strNewName = Replace(strNewName, "S K ", "SK ") strNewName = Replace(strNewName, "S L ", "SL ") strNewName = Replace(strNewName, "S M ", "SM ") strNewName = Replace(strNewName, "S N ", "SN ") strNewName = Replace(strNewName, "S O ", "SO ") strNewName = Replace(strNewName, "S P ", "SP ") strNewName = Replace(strNewName, "S Q ", "SQ ") strNewName = Replace(strNewName, "S R ", "SR ") strNewName = Replace(strNewName, "S S ", "SS ") strNewName = Replace(strNewName, "S T ", "ST ") strNewName = Replace(strNewName, "S U ", "SU ") strNewName = Replace(strNewName, "S V ", "SV ") strNewName = Replace(strNewName, "S W ", "SW ") strNewName = Replace(strNewName, "S X ", "SX ") strNewName = Replace(strNewName, "S Y ", "SY ") strNewName = Replace(strNewName, "S Z ", "SZ ") strNewName = Replace(strNewName, "T A ", "TA ") strNewName = Replace(strNewName, "T B ", "TB ") strNewName = Replace(strNewName, "T C ", "TC ") strNewName = Replace(strNewName, "T D ", "TD ") strNewName = Replace(strNewName, "T E ", "TE ") strNewName = Replace(strNewName, "T F ", "TF ") strNewName = Replace(strNewName, "T G ", "TG ") strNewName = Replace(strNewName, "T H ", "TH ") strNewName = Replace(strNewName, "T I ", "TI ") strNewName = Replace(strNewName, "T J ", "TJ ") strNewName = Replace(strNewName, "T K ", "TK ") strNewName = Replace(strNewName, "T L ", "TL ") strNewName = Replace(strNewName, "T M ", "TM ") strNewName = Replace(strNewName, "T N ", "TN ") strNewName = Replace(strNewName, "T O ", "TO ") strNewName = Replace(strNewName, "T P ", "TP ") strNewName = Replace(strNewName, "T Q ", "TQ ") strNewName = Replace(strNewName, "T R ", "TR ") strNewName = Replace(strNewName, "T S ", "TS ") strNewName = Replace(strNewName, "T T ", "TT ") strNewName = Replace(strNewName, "T U ", "TU ") strNewName = Replace(strNewName, "T V ", "TV ") strNewName = Replace(strNewName, "T W ", "TW ") strNewName = Replace(strNewName, "T X ", "TX ") strNewName = Replace(strNewName, "T Y ", "TY ") strNewName = Replace(strNewName, "T Z ", "TZ ") strNewName = Replace(strNewName, "U A ", "UA ") strNewName = Replace(strNewName, "U B ", "UB ") strNewName = Replace(strNewName, "U C ", "UC ") strNewName = Replace(strNewName, "U D ", "UD ") strNewName = Replace(strNewName, "U E ", "UE ") strNewName = Replace(strNewName, "U F ", "UF ") strNewName = Replace(strNewName, "U G ", "UG ") strNewName = Replace(strNewName, "U H ", "UH ") strNewName = Replace(strNewName, "U I ", "UI ") strNewName = Replace(strNewName, "U J ", "UJ ") strNewName = Replace(strNewName, "U K ", "UK ") strNewName = Replace(strNewName, "U L ", "UL ") strNewName = Replace(strNewName, "U M ", "UM ") strNewName = Replace(strNewName, "U N ", "UN ") strNewName = Replace(strNewName, "U O ", "UO ") strNewName = Replace(strNewName, "U P ", "UP ") strNewName = Replace(strNewName, "U Q ", "UQ ") strNewName = Replace(strNewName, "U R ", "UR ") strNewName = Replace(strNewName, "U S ", "US ") strNewName = Replace(strNewName, "U T ", "UT ") strNewName = Replace(strNewName, "U U ", "UU ") strNewName = Replace(strNewName, "U V ", "UV ") strNewName = Replace(strNewName, "U W ", "UW ") strNewName = Replace(strNewName, "U X ", "UX ") strNewName = Replace(strNewName, "U Y ", "UY ") strNewName = Replace(strNewName, "U Z ", "UZ ") strNewName = Replace(strNewName, "V A ", "VA ") strNewName = Replace(strNewName, "V B ", "VB ") strNewName = Replace(strNewName, "V C ", "VC ") strNewName = Replace(strNewName, "V D ", "VD ") strNewName = Replace(strNewName, "V E ", "VE ") strNewName = Replace(strNewName, "V F ", "VF ") strNewName = Replace(strNewName, "V G ", "VG ") strNewName = Replace(strNewName, "V H ", "VH ") strNewName = Replace(strNewName, "V I ", "VI ") strNewName = Replace(strNewName, "V J ", "VJ ") strNewName = Replace(strNewName, "V K ", "VK ") strNewName = Replace(strNewName, "V L ", "VL ") strNewName = Replace(strNewName, "V M ", "VM ") strNewName = Replace(strNewName, "V N ", "VN ") strNewName = Replace(strNewName, "V O ", "VO ") strNewName = Replace(strNewName, "V P ", "VP ") strNewName = Replace(strNewName, "V Q ", "VQ ") strNewName = Replace(strNewName, "V R ", "VR ") strNewName = Replace(strNewName, "V S ", "VS ") strNewName = Replace(strNewName, "V T ", "VT ") strNewName = Replace(strNewName, "V U ", "VU ") strNewName = Replace(strNewName, "V V ", "VV ") strNewName = Replace(strNewName, "V W ", "VW ") strNewName = Replace(strNewName, "V X ", "VX ") strNewName = Replace(strNewName, "V Y ", "VY ") strNewName = Replace(strNewName, "V Z ", "VZ ") strNewName = Replace(strNewName, "W A ", "WA ") strNewName = Replace(strNewName, "W B ", "WB ") strNewName = Replace(strNewName, "W C ", "WC ") strNewName = Replace(strNewName, "W D ", "WD ") strNewName = Replace(strNewName, "W E ", "WE ") strNewName = Replace(strNewName, "W F ", "WF ") strNewName = Replace(strNewName, "W G ", "WG ") strNewName = Replace(strNewName, "W H ", "WH ") strNewName = Replace(strNewName, "W I ", "WI ") strNewName = Replace(strNewName, "W J ", "WJ ") strNewName = Replace(strNewName, "W K ", "WK ") strNewName = Replace(strNewName, "W L ", "WL ") strNewName = Replace(strNewName, "W M ", "WM ") strNewName = Replace(strNewName, "W N ", "WN ") strNewName = Replace(strNewName, "W O ", "WO ") strNewName = Replace(strNewName, "W P ", "WP ") strNewName = Replace(strNewName, "W Q ", "WQ ") strNewName = Replace(strNewName, "W R ", "WR ") strNewName = Replace(strNewName, "W S ", "WS ") strNewName = Replace(strNewName, "W T ", "WT ") strNewName = Replace(strNewName, "W U ", "WU ") strNewName = Replace(strNewName, "W V ", "WV ") strNewName = Replace(strNewName, "W W ", "WW ") strNewName = Replace(strNewName, "W X ", "WX ") strNewName = Replace(strNewName, "W Y ", "WY ") strNewName = Replace(strNewName, "W Z ", "WZ ") strNewName = Replace(strNewName, "X A ", "XA ") strNewName = Replace(strNewName, "X B ", "XB ") strNewName = Replace(strNewName, "X C ", "XC ") strNewName = Replace(strNewName, "X D ", "XD ") strNewName = Replace(strNewName, "X E ", "XE ") strNewName = Replace(strNewName, "X F ", "XF ") strNewName = Replace(strNewName, "X G ", "XG ") strNewName = Replace(strNewName, "X H ", "XH ") strNewName = Replace(strNewName, "X I ", "XI ") strNewName = Replace(strNewName, "X J ", "XJ ") strNewName = Replace(strNewName, "X K ", "XK ") strNewName = Replace(strNewName, "X L ", "XL ") strNewName = Replace(strNewName, "X M ", "XM ") strNewName = Replace(strNewName, "X N ", "XN ") strNewName = Replace(strNewName, "X O ", "XO ") strNewName = Replace(strNewName, "X P ", "XP ") strNewName = Replace(strNewName, "X Q ", "XQ ") strNewName = Replace(strNewName, "X R ", "XR ") strNewName = Replace(strNewName, "X S ", "XS ") strNewName = Replace(strNewName, "X T ", "XT ") strNewName = Replace(strNewName, "X U ", "XU ") strNewName = Replace(strNewName, "X V ", "XV ") strNewName = Replace(strNewName, "X W ", "XW ") strNewName = Replace(strNewName, "X X ", "XX ") strNewName = Replace(strNewName, "X Y ", "XY ") strNewName = Replace(strNewName, "X Z ", "XZ ") strNewName = Replace(strNewName, "Y A ", "YA ") strNewName = Replace(strNewName, "Y B ", "YB ") strNewName = Replace(strNewName, "Y C ", "YC ") strNewName = Replace(strNewName, "Y D ", "YD ") strNewName = Replace(strNewName, "Y E ", "YE ") strNewName = Replace(strNewName, "Y F ", "YF ") strNewName = Replace(strNewName, "Y G ", "YG ") strNewName = Replace(strNewName, "Y H ", "XH ") strNewName = Replace(strNewName, "Y I ", "YI ") strNewName = Replace(strNewName, "Y J ", "YJ ") strNewName = Replace(strNewName, "Y K ", "YK ") strNewName = Replace(strNewName, "Y L ", "YL ") strNewName = Replace(strNewName, "Y M ", "YM ") strNewName = Replace(strNewName, "Y N ", "YN ") strNewName = Replace(strNewName, "Y O ", "YO ") strNewName = Replace(strNewName, "Y P ", "YP ") strNewName = Replace(strNewName, "Y Q ", "YQ ") strNewName = Replace(strNewName, "Y R ", "YR ") strNewName = Replace(strNewName, "Y S ", "YS ") strNewName = Replace(strNewName, "Y T ", "YT ") strNewName = Replace(strNewName, "Y U ", "YU ") strNewName = Replace(strNewName, "Y V ", "YV ") strNewName = Replace(strNewName, "Y W ", "YW ") strNewName = Replace(strNewName, "Y X ", "YX ") strNewName = Replace(strNewName, "Y Y ", "YY ") strNewName = Replace(strNewName, "Y Z ", "YZ ") strNewName = Replace(strNewName, "Z A ", "ZA ") strNewName = Replace(strNewName, "Z B ", "ZB ") strNewName = Replace(strNewName, "Z C ", "ZC ") strNewName = Replace(strNewName, "Z D ", "ZD ") strNewName = Replace(strNewName, "Z E ", "ZE ") strNewName = Replace(strNewName, "Z F ", "ZF ") strNewName = Replace(strNewName, "Z G ", "ZG ") strNewName = Replace(strNewName, "Z H ", "ZH ") strNewName = Replace(strNewName, "Z I ", "ZI ") strNewName = Replace(strNewName, "Z J ", "ZJ ") strNewName = Replace(strNewName, "Z K ", "ZK ") strNewName = Replace(strNewName, "Z L ", "ZL ") strNewName = Replace(strNewName, "Z M ", "ZM ") strNewName = Replace(strNewName, "Z N ", "ZN ") strNewName = Replace(strNewName, "Z O ", "ZO ") strNewName = Replace(strNewName, "Z P ", "ZP ") strNewName = Replace(strNewName, "Z Q ", "ZQ ") strNewName = Replace(strNewName, "Z R ", "ZR ") strNewName = Replace(strNewName, "Z S ", "ZS ") strNewName = Replace(strNewName, "Z T ", "ZT ") strNewName = Replace(strNewName, "Z U ", "ZU ") strNewName = Replace(strNewName, "Z V ", "ZV ") strNewName = Replace(strNewName, "Z W ", "ZW ") strNewName = Replace(strNewName, "Z X ", "ZX ") strNewName = Replace(strNewName, "Z Y ", "ZY ") strNewName = Replace(strNewName, "Z Z ", "ZZ ") end if '=========================================================== 'Fixes Initials that are together like George Rr Martin to George RR Martin if fCapMagic2 = True then strNewName = Replace(strNewName, "Aa ", "AA ") strNewName = Replace(strNewName, "Ab ", "AB ") strNewName = Replace(strNewName, "Ac ", "AC ") strNewName = Replace(strNewName, "Ad ", "AD ") strNewName = Replace(strNewName, "Ae ", "AE ") strNewName = Replace(strNewName, "Af ", "AF ") strNewName = Replace(strNewName, "Ag ", "AG ") strNewName = Replace(strNewName, "Ah ", "AH ") strNewName = Replace(strNewName, "Ai ", "AI ") strNewName = Replace(strNewName, "Aj ", "AJ ") strNewName = Replace(strNewName, "Ak ", "AK ") strNewName = Replace(strNewName, "Al ", "AL ") strNewName = Replace(strNewName, "Am ", "AM ") strNewName = Replace(strNewName, "An ", "AN ") strNewName = Replace(strNewName, "Ao ", "AO ") strNewName = Replace(strNewName, "Ap ", "AP ") strNewName = Replace(strNewName, "Aq ", "AQ ") strNewName = Replace(strNewName, "Ar ", "AR ") strNewName = Replace(strNewName, "As ", "AS ") strNewName = Replace(strNewName, "At ", "AT ") strNewName = Replace(strNewName, "Au ", "AU ") strNewName = Replace(strNewName, "Av ", "AV ") strNewName = Replace(strNewName, "Aw ", "AW ") strNewName = Replace(strNewName, "Ax ", "AX ") strNewName = Replace(strNewName, "Ay ", "AY ") strNewName = Replace(strNewName, "Az ", "AZ ") strNewName = Replace(strNewName, "Ba ", "BA ") strNewName = Replace(strNewName, "Bb ", "BB ") strNewName = Replace(strNewName, "Bc ", "BC ") strNewName = Replace(strNewName, "Bd ", "BD ") strNewName = Replace(strNewName, "Be ", "BE ") strNewName = Replace(strNewName, "Bf ", "BF ") strNewName = Replace(strNewName, "Bg ", "BG ") strNewName = Replace(strNewName, "Bh ", "BH ") strNewName = Replace(strNewName, "Bi ", "BI ") strNewName = Replace(strNewName, "Bj ", "BJ ") strNewName = Replace(strNewName, "Bk ", "BK ") strNewName = Replace(strNewName, "Bl ", "BL ") strNewName = Replace(strNewName, "Bm ", "BM ") strNewName = Replace(strNewName, "Bn ", "BN ") strNewName = Replace(strNewName, "Bo ", "BO ") strNewName = Replace(strNewName, "Bp ", "BP ") strNewName = Replace(strNewName, "Bq ", "BQ ") strNewName = Replace(strNewName, "Br ", "BR ") strNewName = Replace(strNewName, "Bs ", "BS ") strNewName = Replace(strNewName, "Bt ", "BT ") strNewName = Replace(strNewName, "Bu ", "BU ") strNewName = Replace(strNewName, "Bv ", "BV ") strNewName = Replace(strNewName, "Bw ", "BW ") strNewName = Replace(strNewName, "Bx ", "BX ") strNewName = Replace(strNewName, "By ", "BY ") strNewName = Replace(strNewName, "Bz ", "BZ ") strNewName = Replace(strNewName, "Ca ", "CA ") strNewName = Replace(strNewName, "Cb ", "CB ") strNewName = Replace(strNewName, "Cc ", "CC ") strNewName = Replace(strNewName, "Cd ", "CD ") strNewName = Replace(strNewName, "Ce ", "CE ") strNewName = Replace(strNewName, "Cf ", "CF ") strNewName = Replace(strNewName, "Cg ", "CG ") strNewName = Replace(strNewName, "Ch ", "CH ") strNewName = Replace(strNewName, "Ci ", "CI ") strNewName = Replace(strNewName, "Cj ", "CJ ") strNewName = Replace(strNewName, "Ck ", "CK ") strNewName = Replace(strNewName, "Cl ", "CL ") strNewName = Replace(strNewName, "Cm ", "CM ") strNewName = Replace(strNewName, "Cn ", "CN ") strNewName = Replace(strNewName, "Co ", "CO ") strNewName = Replace(strNewName, "Cp ", "CP ") strNewName = Replace(strNewName, "Cq ", "CQ ") strNewName = Replace(strNewName, "Cr ", "CR ") strNewName = Replace(strNewName, "Cs ", "CS ") strNewName = Replace(strNewName, "Ct ", "CT ") strNewName = Replace(strNewName, "Cu ", "CU ") strNewName = Replace(strNewName, "Cv ", "CV ") strNewName = Replace(strNewName, "Cw ", "CW ") strNewName = Replace(strNewName, "Cx ", "CX ") strNewName = Replace(strNewName, "Cy ", "CY ") strNewName = Replace(strNewName, "Cz ", "CZ ") strNewName = Replace(strNewName, "Da ", "DA ") strNewName = Replace(strNewName, "Db ", "DB ") strNewName = Replace(strNewName, "Dc ", "DC ") strNewName = Replace(strNewName, "Dd ", "DD ") strNewName = Replace(strNewName, "De ", "DE ") strNewName = Replace(strNewName, "Df ", "DF ") strNewName = Replace(strNewName, "Dg ", "DG ") strNewName = Replace(strNewName, "Dh ", "DH ") strNewName = Replace(strNewName, "Di ", "DI ") strNewName = Replace(strNewName, "Dj ", "DJ ") strNewName = Replace(strNewName, "Dk ", "DK ") strNewName = Replace(strNewName, "Dl ", "DL ") strNewName = Replace(strNewName, "Dm ", "DM ") strNewName = Replace(strNewName, "Dn ", "DN ") strNewName = Replace(strNewName, "Do ", "DO ") strNewName = Replace(strNewName, "Dp ", "DP ") strNewName = Replace(strNewName, "Dq ", "DQ ") strNewName = Replace(strNewName, "Dr ", "DR ") strNewName = Replace(strNewName, "Ds ", "DS ") strNewName = Replace(strNewName, "Dt ", "DT ") strNewName = Replace(strNewName, "Du ", "DU ") strNewName = Replace(strNewName, "Dv ", "DV ") strNewName = Replace(strNewName, "Dw ", "DW ") strNewName = Replace(strNewName, "Dx ", "DX ") strNewName = Replace(strNewName, "Dy ", "DY ") strNewName = Replace(strNewName, "Dz ", "DZ ") strNewName = Replace(strNewName, "Ea ", "EA ") strNewName = Replace(strNewName, "Eb ", "EB ") strNewName = Replace(strNewName, "Ec ", "EC ") strNewName = Replace(strNewName, "Ef ", "ED ") strNewName = Replace(strNewName, "Ee ", "EE ") strNewName = Replace(strNewName, "Ef ", "E ") strNewName = Replace(strNewName, "Eg ", "EG ") strNewName = Replace(strNewName, "Eh ", "EH ") strNewName = Replace(strNewName, "Ei ", "EI ") strNewName = Replace(strNewName, "Ej ", "EJ ") strNewName = Replace(strNewName, "Ek ", "EK ") strNewName = Replace(strNewName, "El ", "EL ") strNewName = Replace(strNewName, "Em ", "EM ") strNewName = Replace(strNewName, "En ", "EN ") strNewName = Replace(strNewName, "Eo ", "EO ") strNewName = Replace(strNewName, "Ep ", "EP ") strNewName = Replace(strNewName, "Eq ", "EQ ") strNewName = Replace(strNewName, "Er ", "ER ") strNewName = Replace(strNewName, "Es ", "ES ") strNewName = Replace(strNewName, "Et ", "ET ") strNewName = Replace(strNewName, "Eu ", "EU ") strNewName = Replace(strNewName, "Ev ", "EV ") strNewName = Replace(strNewName, "Ew ", "EW ") strNewName = Replace(strNewName, "Ex ", "EX ") strNewName = Replace(strNewName, "Ey ", "EY ") strNewName = Replace(strNewName, "Ez ", "EZ ") strNewName = Replace(strNewName, "Fa ", "FA ") strNewName = Replace(strNewName, "Fb ", "FB ") strNewName = Replace(strNewName, "Fc ", "FC ") strNewName = Replace(strNewName, "Fd ", "FD ") strNewName = Replace(strNewName, "Fe ", "FE ") strNewName = Replace(strNewName, "Ff ", "FF ") strNewName = Replace(strNewName, "Fg ", "FG ") strNewName = Replace(strNewName, "Fh ", "FH ") strNewName = Replace(strNewName, "Fi ", "FI ") strNewName = Replace(strNewName, "Fj ", "FJ ") strNewName = Replace(strNewName, "Fk ", "FK ") strNewName = Replace(strNewName, "Fl ", "FL ") strNewName = Replace(strNewName, "Fm ", "FM ") strNewName = Replace(strNewName, "Fn ", "FN ") strNewName = Replace(strNewName, "Fo ", "FO ") strNewName = Replace(strNewName, "Fp ", "FP ") strNewName = Replace(strNewName, "Fq ", "FQ ") strNewName = Replace(strNewName, "Fr ", "FR ") strNewName = Replace(strNewName, "Fs ", "FS ") strNewName = Replace(strNewName, "Ft ", "FT ") strNewName = Replace(strNewName, "Fu ", "FU ") strNewName = Replace(strNewName, "Fv ", "FV ") strNewName = Replace(strNewName, "Fw ", "FW ") strNewName = Replace(strNewName, "Fx ", "FX ") strNewName = Replace(strNewName, "Fy ", "FY ") strNewName = Replace(strNewName, "Fz ", "FZ ") strNewName = Replace(strNewName, "Ga ", "GA ") strNewName = Replace(strNewName, "Gb ", "GB ") strNewName = Replace(strNewName, "Gc ", "GC ") strNewName = Replace(strNewName, "Gd ", "GD ") strNewName = Replace(strNewName, "Ge ", "GE ") strNewName = Replace(strNewName, "Gf ", "GF ") strNewName = Replace(strNewName, "Gg ", "GG ") strNewName = Replace(strNewName, "Gh ", "GH ") strNewName = Replace(strNewName, "Gi ", "GI ") strNewName = Replace(strNewName, "Gj ", "FJ ") strNewName = Replace(strNewName, "Gk ", "GK ") strNewName = Replace(strNewName, "Gl ", "GL ") strNewName = Replace(strNewName, "Gm ", "GM ") strNewName = Replace(strNewName, "Gn ", "GN ") strNewName = Replace(strNewName, "Go ", "GO ") strNewName = Replace(strNewName, "Gp ", "GP ") strNewName = Replace(strNewName, "Gq ", "GQ ") strNewName = Replace(strNewName, "Gr ", "GR ") strNewName = Replace(strNewName, "Gs ", "GS ") strNewName = Replace(strNewName, "Gt ", "GT ") strNewName = Replace(strNewName, "Gu ", "GU ") strNewName = Replace(strNewName, "Gv ", "GV ") strNewName = Replace(strNewName, "Gw ", "GW ") strNewName = Replace(strNewName, "Gx ", "GX ") strNewName = Replace(strNewName, "Gy ", "GY ") strNewName = Replace(strNewName, "Gz ", "GZ ") strNewName = Replace(strNewName, "Ha ", "HA ") strNewName = Replace(strNewName, "Hb ", "HB ") strNewName = Replace(strNewName, "Hc ", "HC ") strNewName = Replace(strNewName, "Hd ", "HD ") strNewName = Replace(strNewName, "He ", "HE ") strNewName = Replace(strNewName, "Hf ", "HF ") strNewName = Replace(strNewName, "Hg ", "HG ") strNewName = Replace(strNewName, "Hh ", "HH ") strNewName = Replace(strNewName, "Hi ", "HI ") strNewName = Replace(strNewName, "Hj ", "HJ ") strNewName = Replace(strNewName, "Hk ", "HK ") strNewName = Replace(strNewName, "Hl ", "HL ") strNewName = Replace(strNewName, "Hm ", "HM ") strNewName = Replace(strNewName, "Hn ", "HN ") strNewName = Replace(strNewName, "Ho ", "HO ") strNewName = Replace(strNewName, "Hp ", "HP ") strNewName = Replace(strNewName, "Hq ", "HQ ") strNewName = Replace(strNewName, "Hr ", "HR ") strNewName = Replace(strNewName, "Hs ", "HS ") strNewName = Replace(strNewName, "Ht ", "HT ") strNewName = Replace(strNewName, "Hu ", "HU ") strNewName = Replace(strNewName, "Hv ", "HV ") strNewName = Replace(strNewName, "Hw ", "HW ") strNewName = Replace(strNewName, "Hx ", "HX ") strNewName = Replace(strNewName, "Hy ", "HY ") strNewName = Replace(strNewName, "Hz ", "HZ ") strNewName = Replace(strNewName, "Ia ", "IA ") strNewName = Replace(strNewName, "Ib ", "IB ") strNewName = Replace(strNewName, "Ic ", "IC ") strNewName = Replace(strNewName, "If ", "ID ") strNewName = Replace(strNewName, "Ie ", "IE ") strNewName = Replace(strNewName, "If ", "IF ") strNewName = Replace(strNewName, "Ig ", "IG ") strNewName = Replace(strNewName, "Ih ", "IH ") strNewName = Replace(strNewName, "Ii ", "II ") strNewName = Replace(strNewName, "Ij ", "IJ ") strNewName = Replace(strNewName, "Ik ", "IK ") strNewName = Replace(strNewName, "Il ", "IL ") strNewName = Replace(strNewName, "Im ", "IM ") strNewName = Replace(strNewName, "In ", "IN ") strNewName = Replace(strNewName, "Io ", "IO ") strNewName = Replace(strNewName, "Ip ", "IP ") strNewName = Replace(strNewName, "Iq ", "IQ ") strNewName = Replace(strNewName, "Ir ", "IR ") strNewName = Replace(strNewName, "Is ", "IS ") strNewName = Replace(strNewName, "It ", "IT ") strNewName = Replace(strNewName, "Iu ", "IU ") strNewName = Replace(strNewName, "Iv ", "IV ") strNewName = Replace(strNewName, "Iw ", "IW ") strNewName = Replace(strNewName, "Ix ", "IX ") strNewName = Replace(strNewName, "Iy ", "IY ") strNewName = Replace(strNewName, "Iz ", "IZ ") strNewName = Replace(strNewName, "Ja ", "JA ") strNewName = Replace(strNewName, "Jb ", "JB ") strNewName = Replace(strNewName, "Jc ", "JC ") strNewName = Replace(strNewName, "Jd ", "JD ") strNewName = Replace(strNewName, "Je ", "JE ") strNewName = Replace(strNewName, "Jf ", "JF ") strNewName = Replace(strNewName, "Jg ", "JG ") strNewName = Replace(strNewName, "Jh ", "JH ") strNewName = Replace(strNewName, "Ji ", "JI ") strNewName = Replace(strNewName, "Jj ", "JJ ") strNewName = Replace(strNewName, "Jk ", "JK ") strNewName = Replace(strNewName, "Jl ", "JL ") strNewName = Replace(strNewName, "Jm ", "JM ") strNewName = Replace(strNewName, "Jn ", "JN ") strNewName = Replace(strNewName, "Jo ", "JO ") strNewName = Replace(strNewName, "Jp ", "JP ") strNewName = Replace(strNewName, "Jq ", "JQ ") strNewName = Replace(strNewName, "Jr ", "JR ") strNewName = Replace(strNewName, "Js ", "JS ") strNewName = Replace(strNewName, "Jt ", "JT ") strNewName = Replace(strNewName, "Ju ", "JU ") strNewName = Replace(strNewName, "Jv ", "JV ") strNewName = Replace(strNewName, "Jw ", "JW ") strNewName = Replace(strNewName, "Jx ", "JX ") strNewName = Replace(strNewName, "Jy ", "JY ") strNewName = Replace(strNewName, "Jz ", "JZ ") strNewName = Replace(strNewName, "Ka ", "KA ") strNewName = Replace(strNewName, "Kb ", "KB ") strNewName = Replace(strNewName, "Kc ", "KC ") strNewName = Replace(strNewName, "Kd ", "KD ") strNewName = Replace(strNewName, "Ke ", "KE ") strNewName = Replace(strNewName, "Kf ", "KF ") strNewName = Replace(strNewName, "Kg ", "KG ") strNewName = Replace(strNewName, "Kh ", "KH ") strNewName = Replace(strNewName, "Ki ", "KI ") strNewName = Replace(strNewName, "Kj ", "KJ ") strNewName = Replace(strNewName, "Kk ", "KK ") strNewName = Replace(strNewName, "Kl ", "KL ") strNewName = Replace(strNewName, "Km ", "KM ") strNewName = Replace(strNewName, "Kn ", "KN ") strNewName = Replace(strNewName, "Ko ", "KO ") strNewName = Replace(strNewName, "Kp ", "KP ") strNewName = Replace(strNewName, "Kq ", "KQ ") strNewName = Replace(strNewName, "Kr ", "KR ") strNewName = Replace(strNewName, "Ks ", "KS ") strNewName = Replace(strNewName, "Kt ", "KT ") strNewName = Replace(strNewName, "Ku ", "KU ") strNewName = Replace(strNewName, "Kv ", "KV ") strNewName = Replace(strNewName, "Kw ", "KW ") strNewName = Replace(strNewName, "Kx ", "KX ") strNewName = Replace(strNewName, "Ky ", "KY ") strNewName = Replace(strNewName, "Kz ", "KZ ") strNewName = Replace(strNewName, "La ", "LA ") strNewName = Replace(strNewName, "Lb ", "LB ") strNewName = Replace(strNewName, "Lc ", "LC ") strNewName = Replace(strNewName, "Ld ", "LD ") strNewName = Replace(strNewName, "Le ", "LE ") strNewName = Replace(strNewName, "Lf ", "LF ") strNewName = Replace(strNewName, "Lg ", "LG ") strNewName = Replace(strNewName, "Lh ", "LH ") strNewName = Replace(strNewName, "Li ", "LI ") strNewName = Replace(strNewName, "Lj ", "LJ ") strNewName = Replace(strNewName, "Lk ", "LK ") strNewName = Replace(strNewName, "Ll ", "LL ") strNewName = Replace(strNewName, "Lm ", "LM ") strNewName = Replace(strNewName, "Ln ", "LN ") strNewName = Replace(strNewName, "Lo ", "LO ") strNewName = Replace(strNewName, "Lp ", "LP ") strNewName = Replace(strNewName, "Lq ", "LQ ") strNewName = Replace(strNewName, "Lr ", "LR ") strNewName = Replace(strNewName, "Ls ", "LS ") strNewName = Replace(strNewName, "Lt ", "LT ") strNewName = Replace(strNewName, "Lu ", "LU ") strNewName = Replace(strNewName, "Lv ", "LV ") strNewName = Replace(strNewName, "Lw ", "LW ") strNewName = Replace(strNewName, "Lx ", "LX ") strNewName = Replace(strNewName, "Ly ", "LY ") strNewName = Replace(strNewName, "Lz ", "LZ ") strNewName = Replace(strNewName, "Ma ", "MA ") strNewName = Replace(strNewName, "Mb ", "MB ") strNewName = Replace(strNewName, "Mc ", "MC ") strNewName = Replace(strNewName, "Md ", "MD ") strNewName = Replace(strNewName, "Me ", "ME ") strNewName = Replace(strNewName, "Mf ", "MF ") strNewName = Replace(strNewName, "Mg ", "MG ") strNewName = Replace(strNewName, "Mh ", "MH ") strNewName = Replace(strNewName, "Mi ", "MI ") strNewName = Replace(strNewName, "Mj ", "MJ ") strNewName = Replace(strNewName, "Mk ", "MK ") strNewName = Replace(strNewName, "Ml ", "ML ") strNewName = Replace(strNewName, "Mm ", "MM ") strNewName = Replace(strNewName, "Mn ", "MN ") strNewName = Replace(strNewName, "Mo ", "MO ") strNewName = Replace(strNewName, "Mp ", "MP ") strNewName = Replace(strNewName, "Mq ", "MQ ") strNewName = Replace(strNewName, "Mr ", "MR ") strNewName = Replace(strNewName, "Ms ", "MS ") strNewName = Replace(strNewName, "Mt ", "MT ") strNewName = Replace(strNewName, "Mu ", "MU ") strNewName = Replace(strNewName, "Mv ", "MV ") strNewName = Replace(strNewName, "Mw ", "MW ") strNewName = Replace(strNewName, "Mx ", "MX ") strNewName = Replace(strNewName, "My ", "MY ") strNewName = Replace(strNewName, "Mz ", "MZ ") strNewName = Replace(strNewName, "Na ", "NA ") strNewName = Replace(strNewName, "Nb ", "NB ") strNewName = Replace(strNewName, "Nc ", "NC ") strNewName = Replace(strNewName, "Nd ", "ND ") strNewName = Replace(strNewName, "Ne ", "NE ") strNewName = Replace(strNewName, "Nf ", "NF ") strNewName = Replace(strNewName, "Ng ", "NG ") strNewName = Replace(strNewName, "Nh ", "NH ") strNewName = Replace(strNewName, "Ni ", "NI ") strNewName = Replace(strNewName, "Nj ", "NJ ") strNewName = Replace(strNewName, "Nk ", "NK ") strNewName = Replace(strNewName, "Nl ", "NL ") strNewName = Replace(strNewName, "Nm ", "NM ") strNewName = Replace(strNewName, "Nn ", "NN ") strNewName = Replace(strNewName, "No ", "NO ") strNewName = Replace(strNewName, "Np ", "NP ") strNewName = Replace(strNewName, "Nq ", "NQ ") strNewName = Replace(strNewName, "Nr ", "NR ") strNewName = Replace(strNewName, "Ns ", "NS ") strNewName = Replace(strNewName, "Nt ", "NT ") strNewName = Replace(strNewName, "Nu ", "NU ") strNewName = Replace(strNewName, "Nv ", "NV ") strNewName = Replace(strNewName, "Nw ", "NW ") strNewName = Replace(strNewName, "Nx ", "NX ") strNewName = Replace(strNewName, "Ny ", "NY ") strNewName = Replace(strNewName, "Nz ", "NZ ") strNewName = Replace(strNewName, "Oa ", "OA ") strNewName = Replace(strNewName, "Ob ", "OB ") strNewName = Replace(strNewName, "Oc ", "OC ") strNewName = Replace(strNewName, "Od ", "OD ") strNewName = Replace(strNewName, "Oe ", "OE ") strNewName = Replace(strNewName, "Of ", "OF ") strNewName = Replace(strNewName, "Og ", "OG ") strNewName = Replace(strNewName, "Oh ", "OH ") strNewName = Replace(strNewName, "Oi ", "OI ") strNewName = Replace(strNewName, "Oj ", "OJ ") strNewName = Replace(strNewName, "Ok ", "OK ") strNewName = Replace(strNewName, "Ol ", "OL ") strNewName = Replace(strNewName, "Om ", "OM ") strNewName = Replace(strNewName, "On ", "ON ") strNewName = Replace(strNewName, "Oo ", "OO ") strNewName = Replace(strNewName, "Op ", "OP ") strNewName = Replace(strNewName, "Oq ", "OQ ") strNewName = Replace(strNewName, "Or ", "OR ") strNewName = Replace(strNewName, "Os ", "OS ") strNewName = Replace(strNewName, "Ot ", "OT ") strNewName = Replace(strNewName, "Ou ", "OU ") strNewName = Replace(strNewName, "Ov ", "OV ") strNewName = Replace(strNewName, "Ow ", "OW ") strNewName = Replace(strNewName, "Ox ", "OX ") strNewName = Replace(strNewName, "Oy ", "OY ") strNewName = Replace(strNewName, "Oz ", "OZ ") strNewName = Replace(strNewName, "Pa ", "PA ") strNewName = Replace(strNewName, "Pb ", "PB ") strNewName = Replace(strNewName, "Pc ", "PC ") strNewName = Replace(strNewName, "Pd ", "PD ") strNewName = Replace(strNewName, "Pe ", "PE ") strNewName = Replace(strNewName, "Pf ", "PF ") strNewName = Replace(strNewName, "Pg ", "PG ") strNewName = Replace(strNewName, "Ph ", "PH ") strNewName = Replace(strNewName, "Pi ", "PI ") strNewName = Replace(strNewName, "Pj ", "PJ ") strNewName = Replace(strNewName, "Pk ", "PK ") strNewName = Replace(strNewName, "Pl ", "PL ") strNewName = Replace(strNewName, "Pm ", "PM ") strNewName = Replace(strNewName, "Pn ", "PN ") strNewName = Replace(strNewName, "Po ", "PO ") strNewName = Replace(strNewName, "Pp ", "PP ") strNewName = Replace(strNewName, "Pq ", "PQ ") strNewName = Replace(strNewName, "Pr ", "PR ") strNewName = Replace(strNewName, "Ps ", "PS ") strNewName = Replace(strNewName, "Pt ", "PT ") strNewName = Replace(strNewName, "Pu ", "PU ") strNewName = Replace(strNewName, "Pv ", "PV ") strNewName = Replace(strNewName, "Pw ", "PW ") strNewName = Replace(strNewName, "Px ", "PX ") strNewName = Replace(strNewName, "Py ", "PY ") strNewName = Replace(strNewName, "Pz ", "PZ ") strNewName = Replace(strNewName, "Qa ", "QA ") strNewName = Replace(strNewName, "Qb ", "QB ") strNewName = Replace(strNewName, "Qc ", "QC ") strNewName = Replace(strNewName, "Qd ", "QD ") strNewName = Replace(strNewName, "Qe ", "QE ") strNewName = Replace(strNewName, "Qf ", "QF ") strNewName = Replace(strNewName, "Qg ", "QG ") strNewName = Replace(strNewName, "Qh ", "QH ") strNewName = Replace(strNewName, "Qi ", "QI ") strNewName = Replace(strNewName, "Qj ", "QJ ") strNewName = Replace(strNewName, "Qk ", "QK ") strNewName = Replace(strNewName, "Ql ", "QL ") strNewName = Replace(strNewName, "Qm ", "QM ") strNewName = Replace(strNewName, "Qn ", "QN ") strNewName = Replace(strNewName, "Qo ", "QO ") strNewName = Replace(strNewName, "Qp ", "QP ") strNewName = Replace(strNewName, "Qq ", "QQ ") strNewName = Replace(strNewName, "Qr ", "QR ") strNewName = Replace(strNewName, "Qs ", "QS ") strNewName = Replace(strNewName, "Qt ", "QT ") strNewName = Replace(strNewName, "Qu ", "QU ") strNewName = Replace(strNewName, "Qv ", "QV ") strNewName = Replace(strNewName, "Qw ", "QW ") strNewName = Replace(strNewName, "Qx ", "QX ") strNewName = Replace(strNewName, "Qy ", "QY ") strNewName = Replace(strNewName, "Qz ", "QZ ") strNewName = Replace(strNewName, "Ra ", "RA ") strNewName = Replace(strNewName, "Rb ", "RB ") strNewName = Replace(strNewName, "Rc ", "RC ") strNewName = Replace(strNewName, "Rd ", "RD ") strNewName = Replace(strNewName, "Re ", "RE ") strNewName = Replace(strNewName, "Rf ", "RF ") strNewName = Replace(strNewName, "Rg ", "RG ") strNewName = Replace(strNewName, "Rh ", "RH ") strNewName = Replace(strNewName, "Ri ", "RI ") strNewName = Replace(strNewName, "Rj ", "RJ ") strNewName = Replace(strNewName, "Rk ", "RK ") strNewName = Replace(strNewName, "Rl ", "RL ") strNewName = Replace(strNewName, "Rm ", "RM ") strNewName = Replace(strNewName, "Rn ", "RN ") strNewName = Replace(strNewName, "Ro ", "RO ") strNewName = Replace(strNewName, "Rp ", "RP ") strNewName = Replace(strNewName, "Rq ", "RQ ") strNewName = Replace(strNewName, "Rr ", "RR ") strNewName = Replace(strNewName, "Rs ", "RS ") strNewName = Replace(strNewName, "Rt ", "RT ") strNewName = Replace(strNewName, "Ru ", "RU ") strNewName = Replace(strNewName, "Rv ", "RV ") strNewName = Replace(strNewName, "Rw ", "RW ") strNewName = Replace(strNewName, "Rx ", "RX ") strNewName = Replace(strNewName, "Ry ", "RY ") strNewName = Replace(strNewName, "Rz ", "RZ ") strNewName = Replace(strNewName, "Sa ", "SA ") strNewName = Replace(strNewName, "Sb ", "SB ") strNewName = Replace(strNewName, "Sc ", "SC ") strNewName = Replace(strNewName, "Sd ", "SD ") strNewName = Replace(strNewName, "Se ", "SE ") strNewName = Replace(strNewName, "Sf ", "SF ") strNewName = Replace(strNewName, "Sg ", "SG ") strNewName = Replace(strNewName, "Sh ", "SH ") strNewName = Replace(strNewName, "Si ", "SI ") strNewName = Replace(strNewName, "Sk ", "SJ ") strNewName = Replace(strNewName, "Sk ", "SK ") strNewName = Replace(strNewName, "Sl ", "SL ") strNewName = Replace(strNewName, "Sm ", "SM ") strNewName = Replace(strNewName, "Sn ", "SN ") strNewName = Replace(strNewName, "So ", "SO ") strNewName = Replace(strNewName, "Sp ", "SP ") strNewName = Replace(strNewName, "Sq ", "SQ ") strNewName = Replace(strNewName, "Sr ", "SR ") strNewName = Replace(strNewName, "Ss ", "SS ") strNewName = Replace(strNewName, "St ", "ST ") strNewName = Replace(strNewName, "Su ", "SU ") strNewName = Replace(strNewName, "Sv ", "SV ") strNewName = Replace(strNewName, "Sw ", "SW ") strNewName = Replace(strNewName, "Sx ", "SX ") strNewName = Replace(strNewName, "Sy ", "SY ") strNewName = Replace(strNewName, "Sz ", "SZ ") strNewName = Replace(strNewName, "Ta ", "TA ") strNewName = Replace(strNewName, "Tb ", "TB ") strNewName = Replace(strNewName, "Tc ", "TC ") strNewName = Replace(strNewName, "Td ", "TD ") strNewName = Replace(strNewName, "Te ", "TE ") strNewName = Replace(strNewName, "Tf ", "TF ") strNewName = Replace(strNewName, "Tg ", "TG ") strNewName = Replace(strNewName, "Th ", "TH ") strNewName = Replace(strNewName, "Ti ", "TI ") strNewName = Replace(strNewName, "Tj ", "TJ ") strNewName = Replace(strNewName, "Tk ", "TK ") strNewName = Replace(strNewName, "Tl ", "TL ") strNewName = Replace(strNewName, "Tm ", "TM ") strNewName = Replace(strNewName, "Tn ", "TN ") strNewName = Replace(strNewName, "To ", "TO ") strNewName = Replace(strNewName, "Tp ", "TP ") strNewName = Replace(strNewName, "Tq ", "TQ ") strNewName = Replace(strNewName, "Tr ", "TR ") strNewName = Replace(strNewName, "Ts ", "TS ") strNewName = Replace(strNewName, "Tt ", "TT ") strNewName = Replace(strNewName, "Tu ", "TU ") strNewName = Replace(strNewName, "Tv ", "TV ") strNewName = Replace(strNewName, "Tw ", "TW ") strNewName = Replace(strNewName, "Tx ", "TX ") strNewName = Replace(strNewName, "Ty ", "TY ") strNewName = Replace(strNewName, "Tz ", "TZ ") strNewName = Replace(strNewName, "Ua ", "UA ") strNewName = Replace(strNewName, "Ub ", "UB ") strNewName = Replace(strNewName, "Uc ", "UC ") strNewName = Replace(strNewName, "Ud ", "UD ") strNewName = Replace(strNewName, "Ue ", "UE ") strNewName = Replace(strNewName, "Uf ", "UF ") strNewName = Replace(strNewName, "Ug ", "UG ") strNewName = Replace(strNewName, "Uh ", "UH ") strNewName = Replace(strNewName, "Ui ", "UI ") strNewName = Replace(strNewName, "Uj ", "UJ ") strNewName = Replace(strNewName, "Uk ", "UK ") strNewName = Replace(strNewName, "Ul ", "UL ") strNewName = Replace(strNewName, "Um ", "UM ") strNewName = Replace(strNewName, "Un ", "UN ") strNewName = Replace(strNewName, "Uo ", "UO ") strNewName = Replace(strNewName, "Up ", "UP ") strNewName = Replace(strNewName, "Uq ", "UQ ") strNewName = Replace(strNewName, "Ur ", "UR ") strNewName = Replace(strNewName, "Us ", "US ") strNewName = Replace(strNewName, "Ut ", "UT ") strNewName = Replace(strNewName, "Uu ", "UU ") strNewName = Replace(strNewName, "Uv ", "UV ") strNewName = Replace(strNewName, "Uw ", "UW ") strNewName = Replace(strNewName, "Ux ", "UX ") strNewName = Replace(strNewName, "Uy ", "UY ") strNewName = Replace(strNewName, "Uz ", "UZ ") strNewName = Replace(strNewName, "Va ", "VA ") strNewName = Replace(strNewName, "Vb ", "VB ") strNewName = Replace(strNewName, "Vc ", "VC ") strNewName = Replace(strNewName, "Vd ", "VD ") strNewName = Replace(strNewName, "Ve ", "VE ") strNewName = Replace(strNewName, "Vf ", "VF ") strNewName = Replace(strNewName, "Vg ", "VG ") strNewName = Replace(strNewName, "Vh ", "VH ") strNewName = Replace(strNewName, "Vi ", "VI ") strNewName = Replace(strNewName, "Vj ", "VJ ") strNewName = Replace(strNewName, "Vk ", "VK ") strNewName = Replace(strNewName, "Vl ", "VL ") strNewName = Replace(strNewName, "Vm ", "VM ") strNewName = Replace(strNewName, "Vn ", "VN ") strNewName = Replace(strNewName, "Vo ", "VO ") strNewName = Replace(strNewName, "Vp ", "VP ") strNewName = Replace(strNewName, "Vq ", "VQ ") strNewName = Replace(strNewName, "Vr ", "VR ") strNewName = Replace(strNewName, "Vs ", "VS ") strNewName = Replace(strNewName, "Vt ", "VT ") strNewName = Replace(strNewName, "Vu ", "VU ") strNewName = Replace(strNewName, "Vv ", "VV ") strNewName = Replace(strNewName, "Vw ", "VW ") strNewName = Replace(strNewName, "Vx ", "VX ") strNewName = Replace(strNewName, "Vy ", "VY ") strNewName = Replace(strNewName, "Vz ", "VZ ") strNewName = Replace(strNewName, "Wa ", "WA ") strNewName = Replace(strNewName, "Wb ", "WB ") strNewName = Replace(strNewName, "Wc ", "WC ") strNewName = Replace(strNewName, "Wd ", "WD ") strNewName = Replace(strNewName, "We ", "WE ") strNewName = Replace(strNewName, "Wf ", "WF ") strNewName = Replace(strNewName, "Wg ", "WG ") strNewName = Replace(strNewName, "Wh ", "WH ") strNewName = Replace(strNewName, "Wi ", "WI ") strNewName = Replace(strNewName, "Wj ", "WJ ") strNewName = Replace(strNewName, "Wk ", "WK ") strNewName = Replace(strNewName, "Wl ", "WL ") strNewName = Replace(strNewName, "Wm ", "WM ") strNewName = Replace(strNewName, "Wn ", "WN ") strNewName = Replace(strNewName, "Wo ", "WO ") strNewName = Replace(strNewName, "Wp ", "WP ") strNewName = Replace(strNewName, "Wq ", "WQ ") strNewName = Replace(strNewName, "Wr ", "WR ") strNewName = Replace(strNewName, "Ws ", "WS ") strNewName = Replace(strNewName, "Wt ", "WT ") strNewName = Replace(strNewName, "Wu ", "WU ") strNewName = Replace(strNewName, "Wv ", "WV ") strNewName = Replace(strNewName, "Ww ", "WW ") strNewName = Replace(strNewName, "Wx ", "WX ") strNewName = Replace(strNewName, "Wy ", "WY ") strNewName = Replace(strNewName, "Wz ", "WZ ") strNewName = Replace(strNewName, "Xa ", "XA ") strNewName = Replace(strNewName, "Xb ", "XB ") strNewName = Replace(strNewName, "Xc ", "XC ") strNewName = Replace(strNewName, "Xd ", "XD ") strNewName = Replace(strNewName, "Xe ", "XE ") strNewName = Replace(strNewName, "Xf ", "XF ") strNewName = Replace(strNewName, "Xg ", "XG ") strNewName = Replace(strNewName, "Xh ", "XH ") strNewName = Replace(strNewName, "Xi ", "XI ") strNewName = Replace(strNewName, "Xj ", "XJ ") strNewName = Replace(strNewName, "Xk ", "XK ") strNewName = Replace(strNewName, "Xl ", "XL ") strNewName = Replace(strNewName, "Xm ", "XM ") strNewName = Replace(strNewName, "Xn ", "XN ") strNewName = Replace(strNewName, "Xo ", "XO ") strNewName = Replace(strNewName, "Xp ", "XP ") strNewName = Replace(strNewName, "Xq ", "XQ ") strNewName = Replace(strNewName, "Xr ", "XR ") strNewName = Replace(strNewName, "Xs ", "XS ") strNewName = Replace(strNewName, "Xt ", "XT ") strNewName = Replace(strNewName, "Xu ", "XU ") strNewName = Replace(strNewName, "Xv ", "XV ") strNewName = Replace(strNewName, "Xw ", "XW ") strNewName = Replace(strNewName, "Xx ", "XX ") strNewName = Replace(strNewName, "Xy ", "XY ") strNewName = Replace(strNewName, "Xz ", "XZ ") strNewName = Replace(strNewName, "Ya ", "YA ") strNewName = Replace(strNewName, "Yb ", "YB ") strNewName = Replace(strNewName, "Yc ", "YC ") strNewName = Replace(strNewName, "Yd ", "YD ") strNewName = Replace(strNewName, "Ye ", "YE ") strNewName = Replace(strNewName, "Yf ", "YF ") strNewName = Replace(strNewName, "Yg ", "YG ") strNewName = Replace(strNewName, "Yh ", "XH ") strNewName = Replace(strNewName, "Yi ", "YI ") strNewName = Replace(strNewName, "Yj ", "YJ ") strNewName = Replace(strNewName, "Yk ", "YK ") strNewName = Replace(strNewName, "Yl ", "YL ") strNewName = Replace(strNewName, "Ym ", "YM ") strNewName = Replace(strNewName, "Yn ", "YN ") strNewName = Replace(strNewName, "Yo ", "YO ") strNewName = Replace(strNewName, "Yp ", "YP ") strNewName = Replace(strNewName, "Yq ", "YQ ") strNewName = Replace(strNewName, "Yr ", "YR ") strNewName = Replace(strNewName, "Ys ", "YS ") strNewName = Replace(strNewName, "Yt ", "YT ") strNewName = Replace(strNewName, "Yu ", "YU ") strNewName = Replace(strNewName, "Yv ", "YV ") strNewName = Replace(strNewName, "Yw ", "YW ") strNewName = Replace(strNewName, "Yx ", "YX ") strNewName = Replace(strNewName, "Yy ", "YY ") strNewName = Replace(strNewName, "Yz ", "YZ ") strNewName = Replace(strNewName, "Za ", "ZA ") strNewName = Replace(strNewName, "Zb ", "ZB ") strNewName = Replace(strNewName, "Zc ", "ZC ") strNewName = Replace(strNewName, "Zd ", "ZD ") strNewName = Replace(strNewName, "Ze ", "ZE ") strNewName = Replace(strNewName, "Zf ", "ZF ") strNewName = Replace(strNewName, "Zg ", "ZG ") strNewName = Replace(strNewName, "Zh ", "ZH ") strNewName = Replace(strNewName, "Zi ", "ZI ") strNewName = Replace(strNewName, "Zj ", "ZJ ") strNewName = Replace(strNewName, "Zk ", "ZK ") strNewName = Replace(strNewName, "Zl ", "ZL ") strNewName = Replace(strNewName, "Zm ", "ZM ") strNewName = Replace(strNewName, "Zn ", "ZN ") strNewName = Replace(strNewName, "Zo ", "ZO ") strNewName = Replace(strNewName, "Zp ", "ZP ") strNewName = Replace(strNewName, "Zq ", "ZQ ") strNewName = Replace(strNewName, "Zr ", "ZR ") strNewName = Replace(strNewName, "Zs ", "ZS ") strNewName = Replace(strNewName, "Zt ", "ZT ") strNewName = Replace(strNewName, "Zu ", "ZU ") strNewName = Replace(strNewName, "Zv ", "ZV ") strNewName = Replace(strNewName, "Zw ", "ZW ") strNewName = Replace(strNewName, "Zx ", "ZX ") strNewName = Replace(strNewName, "Zy ", "ZY ") strNewName = Replace(strNewName, "Zz ", "ZZ ") end if '=========================================================== End Function