VBA希望の値で検索できない

Question

エクセルVBAでデータ転記のコードを作成しています。
オートフィルタで希望の値で検索できずに困っています。

オートフィルタで変数の値を検索
データ検索→検索データを別なシートへ貼付→変数の値を変更→データ検索・・・
For　Each　ループ　で変数の値を変更していきます。

動きとしては思っているように動いてくれるのですが
オートフィルタのデータ検索時に
変数に代入された値ではないもので検索されてしまいます。

変数はkubun=Array("引揚","設置")
ローカルウインドで変数の値を確認すると
変数の値は”引揚”なのですが
オートフィルタで検索されるデータは”設置”になっていしまいます。
変数値”設置”の時は”設置”でデータ検索されます。

検索条件をArray（”引揚”,”設置”,”中止”)でためしたところ
変数値”引揚”,”設置”のときの
オートフィルタ検索条件は”中止”になっています。
変数は順番に希望の値が代入されますが
オートフィルタ検索条件がすべて
最後に記載した値になってしまいます。

エラーはとくに表示されません。
office2010 windows7

なぜこのようになってしまうかわからず困っております。
皆さまのお力添えをいただきたく質問させていただきます。
よろしくお願いします。

エラーメッセージ

該当のソースコード

Dim r As Integer, kubun As Variant, k As Variant, i As Integer
kubun = Array("引揚", "設置")

For Each k In kubun

Worksheets("データ").Range("A1").CurrentRegion.ClearContents

With Worksheets("作成用データ")
    .Select
    .Range("A1").CurrentRegion.AutoFilter field:=16, Criteria1:=kubun
  

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑
' Criteria1:=kubunの値は”引揚”になっているのに検索条件は”設置”になってしまう

　　　　.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy　_
Worksheets("データ").Range("A1")
.Range("A1").AutoFilter
End With
・
・
・
End Sub

Answer 1

つCriteria1:=kubun→Criteria1:=k

Comments

[emico]

早速の回答ありがとうございます。
解決いたしました。
ローカルウインドで確認した際もkの値が変化していました。
ありがとうございました。