object contains only one list. Read-only Boolean.
expression.SingleList
expression Required. An expression that returns a ListFormat object.
Example
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