I have the following procedure that I use in my personal.xlsb in order to quickly add list number in an specific column:
Dim strCol As String
Dim lngLastRow As Long
Dim lngRow As Long
Dim intPos As Integer
Dim strPrefix As String
strCol = InputBox("Please enter the column letter in which you add specific row number", "Choose Column Letter")
lngLastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
For lngRow = 1 To lngLastRow
Cells(lngRow, strCol).Value = lngRow
I would like to take it as a reference to add list number in a column table in power point. Every time when a set up table in power point I use list number and when I add additional row I need to retype list number manually. I would like to add this procedure in my powerpoint add in in order to avoid to perform this task manually.
Thank you again for your feedback.