Sub ListOrNot()
Dim aRng As range
Set aRng = ActiveDocument.range
    With aRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWildcards = False
        .text = "Title"
        If .Execute Then
            aRng.Select
            check = aRng.Paragraphs(1).range.ListFormat.ListType
            If check <> 0 Then
                MsgBox "This is a list paragraph"
            Else
                MsgBox "This is not a list paragraph"
            End If
        End If
     End With
  Set aRng = Nothing
End Sub