Hello,
I've written a macro to identify bulleted lists and then remove said bullet. However, every time the value of the bullet is deleted a line of random symbols are left behind.
The bulleted list needed to be trimmed:
bulletList.JPG
This is the value the bullet is given within excel:
bulletListExcelValue.JPG
Notice the bullet is given a value of r.
In my VBA Macro I search for a value of r and then trim accordingly.
Here is my code:
Sub CommandButton1_Click()
Dim Bullet As String
Dim Cel As Range
Dim Str As String
Dim i As Long
Bullet = "r"
For Each Cel In Selection
Str = Cel.Value
If Left(Str, Len(Bullet)) = Bullet Then
Str = Trim(Cel.Value)
i = Len(Str) - 1
If i >= 0 Then
Cel.Value = Trim(Right(Str, i))
End If
End If
Next Cel
End Sub
I've stepped through the code and it seems to locate the value correctly, but when it trims it leaves behind a weird set of symbols.
The weird set of symbols:
bulletListSymbols.JPG
Any idea what is happening here?
Thanks,
Channing
Bookmarks