This example checks the selection to see whether it only contains one list. If it does, the example applies the default numbered list template to the selection.
temp = Selection.Range.ListFormat.SingleList
If temp = True Then
Selection.Range.ListFormat.ApplyNumberDefault
End If