Unable to use Results.Clear getting an error|VBA & Macros|Excel Forum|My Online Training Hub

Not sure how to add a sample. But here is the code I am running Office 2016 and it is not recognizing the Results.Clear. When I pasted his code into my workbook and adjusted for my workbook it halts at that code. with an error. when I looked at the object browser of it in my workbook there is no reference. When I looked in Philip Treacy downloaded workbook the refrence show F3 Dynamic Library. I cannot find it in my workbook.

Option Explicit

' Written by Philip Treacy
' Display All Matches from Search in Userform ListBox
'
Dim FormEvents As Boolean

Private Sub ClearForm(Except As String)

' Clears the list box and text boxes EXCEPT the text box
' currently having data entered into it

Select Case Except

Case "FName"
FormEvents = False
LName.Value = ""
Location.Value = ""
Department.Value = ""
Results.Clear
FormEvents = True

Case "LName"
FormEvents = False
FName.Value = ""
Location.Value = ""
Department.Value = ""
Results.Clear
FormEvents = True

Case "Location"
FormEvents = False
FName.Value = ""
LName.Value = ""
Department.Value = ""
Results.Clear
FormEvents = True

Case "Department"
FormEvents = False
FName.Value = ""
LName.Value = ""
Location.Value = ""
Results.Clear
FormEvents = True

Case Else
FormEvents = False
FName.Value = ""
LName.Value = ""
Location.Value = ""
Department.Value = ""
Results.Clear
FormEvents = True

End Select

End Sub