Master Filter Sheet to Filter All Sheets

Sub Rectangle1_Click()
  c01 = InputBox("Enter User Code ", "Auto Filter")

  If c01 <> vbNullString Then
    for each sh in thisworkbook.sheets
      Sh.ListObjects("Table6").Range.AutoFilter 1, c01
    next  
  end if
End With