Master Filter Sheet to Filter All Sheets

Sub Rectangle1_Click()
    Dim UserInput As Variant    'also tried string
    Dim strWorksheet As String
    Dim strWorkSheetPath As String
    Dim sht As Worksheet
    Dim wkb As Workbook
    Dim rng As Range
    Dim MySplit As String
    
    
    
UserInput = InputBox("Enter User Code ", "Auto Filter")
myarray = Array(UserInput)
If UserInput = vbNullString Then Exit Sub
   
Set wkb = ActiveWorkbook
Set sht = Worksheets(1)


           
sht.Activate

With sht

   If UserInput <> "clear" Then ActiveSheet.ListObjects("Table6").Range.AutoFilter Field:=1, Criteria1:=(myarray), Operator:=xlFilterValues
   If UserInput = "clear" Then ActiveSheet.ListObjects("Table6").Range.AutoFilter Field:=1, Criteria1:=Null
  
    
End With


End Sub

Why won't this work? I've been at this for hours trying different things.

The macro in excel records taking multiple filters as:

ActiveSheet.ListObjects("Table6").Range.AutoFilter Field:=1, Criteria1:=("abc123", "thw93", "def143"), Operator:=xlFilterValues