InputBoxをつかったフィルタ処理

質問

1000kbほどのエクセルデータに対して、任意の文字列を含んだ行を抽出したいです。
ツールのフィルタの適用をしてもいいのですが、テキストボックスを出現させるだけで、かなりのラグ(5-6秒）があります。

そこでマクロを組んでさくさく作業を使用と思ったのですが、うまくいきません。解決法を提示して頂くと助かります。
以下、記述したものです。

----------------------------------------------------------------
Sub フィルタ()
　Dim myR As String
　Dim Filter As String
　　myR = Application.InputBox(prompt:="抽出語", Type:=2)
　　ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*myR*"
End Sub
----------------------------------------------------------------

回答No.1

bonaron · ベストアンサー

ActiveSheet.Columns(1).AutoFilter Field:=1, Criteria1:="=*" & myR & "*"
ですかね。

お礼

ありがとうございます。動作できました。