Quote:
Originally Posted by victorybadges
thank you for the latest instructions
the result was a colon prefix and dots instead of spaces which I have been able to remove by replacing this
StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
StrTxt = ": " & Left(StrTxt, InStrRev(StrTxt, "."))
with this
StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
StrTxt = Left(StrTxt, InStrRev(StrTxt, "."))
|
Your code makes no sense at all. There is no point in having a line like:
StrTxt = Split(.SelectedItems(j), "")(UBound(Split(.SelectedItems(j), "")))
It does nothing.
And "the result was a colon prefix and dots instead of spaces" is bizzarre - the code doesn't replace your periods or spaces!