"LegalWorkSheetName" Function?
Per (PeteCresswell):
10020 myWorkSheetName = theWorksheetName
10021 For i = 0 To myArraySize
10022 myWorkSheetName = Replace(myWorkSheetName, myBadBoyz(i), myBenignChar)
10029 Next i
Oops! I see a bug already....
--
PeteCresswell
|