excel - 変数 Criteria VBA を使用したオートフィルター

Question

変数を使用してワークシートにオートフィルターを配置しようとしていますが、機能していません。

  Dim Criteria As Object
  i = 1
  Set Criteria = ActiveSheet.Cells(i, 1)
  MsgBox (Criteria.Value) ' this returns BC01.03

ただし、「Criteria.Value」をフィルタリングしようとすると、何も返されません。

Selection.AutoFilter
ActiveSheet.Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=" & Criteria.Value & "

ご意見をお聞かせください。