Split function by comma and hyphen simultaneously

Guessed · #4 08-15-2021, 04:40 AM

Add this line (shown in Red) into the Sub you already have

Code:

  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  strPage = funExpandDashes(strPage)
  nSplitItem = UBound(Split(strPage, ","))

You should make the above change to what you already had shown in the first post.
The Function I provided goes either before or after all the code you had. You can delete the short test sub I provided - it isn't necessary.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mistake in the help file for String "Split Function"?	John 4	Word VBA	6	11-19-2020 06:02 AM
Hyphen until the end of the row	abc3132	Word	13	10-31-2019 04:36 AM
Split function in Excel (split the screen)	Officer_Bierschnitt	Excel	1	07-05-2017 07:02 AM
Split function not working as I expect??!!	XmisterIS	Word VBA	9	04-08-2014 04:41 PM
Cross-reference function to update bullet header and number simultaneously	dljenks	Word	1	01-03-2014 01:38 PM