VBA to find a value in a pivot table

[katekoz]

Hello! I have a UserValue input through an InputBox. I would like to check a little one-column pivot table to see if that value exists in the table. If it does, I will pop up a message. If not, continue with the macro. This is what I wrote, but it's (obviously) not working. At the bolded line, I get the error "Object doesn't support this property or method." I was thinking of turning the pivot table into a range and checking to see if the value exists in the range. Would that be a better way?? Any suggestions are appreciated!

UserValue = InputBox("Enter the username you'd like to add here:")

If ThisWorkbook.Sheets("Inputs").ListObject(1).Value = UserValue Then
ans = MsgBox("The user " & UserValue & " was already added and will be added as a duplicate. Would you like to continue adding?", vbYesNoCancel)
Select Case ans
Case vbYes
ThisWorkbook.Sheets("Inputs").Range("M2").Value = UserValue
Case vbNo
Exit Sub
Case vbCancel
Exit Sub
End Select
End If

 

[katekoz]

Nevermind with this - I've solved it myself. The code I'm using is:

For Each Row In ThisWorkbook.Sheets("Inputs").PivotTables(1).DataBodyRange.Rows
SearchList = SearchList & Row.Cells(Row.Count, 1) & "|"
Next Row

If 0 = InStr(1, SearchList, UserValue) Then
'left blank to "do nothing" in this case
Else: ans = MsgBox("This username is already included and adding it will create duplicate lines throughout. Would you still like to add this username?", vbYesNo)
End If