Bulk selected cells into numeric HTML?

[JJWBTM]

Hi,

Not sure if this is doable, but thought I'd ask regardless.

I currently have the below macro - this converts the text inside the cells (separated by lines) into bullet points.

Sub aTest()

*** Dim rCell As Range, spl As Variant, i As Long

*** For Each rCell In Selection

******* spl = Split(rCell, Chr(10))

******* For i = LBound(spl) To UBound(spl)

*********** spl(i) = Chr(60) & "li" & Chr(62) & spl(i) & Chr(60) & "/li" & Chr(62)

******* Next i

******* rCell = Join(spl, Chr(10))

*** Next rCell

*** Selection.ColumnWidth = 200

*** Selection.EntireRow.AutoFit

*** Selection.EntireColumn.AutoFit

End Sub

Please can someone see if I'm also able to turn it into numbers, like the below?

1. Test
2. Test
3. Test

Thank you!

[sweep]

Hi,

Does the "ol" switch do what you need?

Please Login or Register  to view this content.

Or do you want the numbers as part of the string?

Please Login or Register  to view this content.

[JJWBTM]

Hi,

Does the "ol" switch do what you need?

Please Login or Register  to view this content.

Or do you want the numbers as part of the string?

Please Login or Register  to view this content.

Thank you so much! It was the first one I needed. This works perfectly.

You have saved me a lot of time manually adjusting it today. Really appreciate it.

Have a fab rest of your week.