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.