found this piece code and its exactly as presented. It works in the provider demo, but not in my new workbook.
Error occurs at the bold red print (object define error)
Sub search_and_extract_singlecriteria()
Dim datasheet As Worksheet
Dim reportsheet As Worksheet
Dim typename As String
Dim...