VBAでオートフィルを使って指定する文字列を含むものを表示させたい

質問

VBAを使って、セルD1に入力した文字列を検索するマクロを作りたいと思っています。
私は初心者で前に似たようなものを作ってもらって
それを加工しようとしたのですが、うまくいきませんでした。

以前は完全に一致するもので表示でしたが、
今回は含むものを表示させたいです。
ワイルドカードは＊をつけるのはわかるのですが、
いろいろやってみましたがダメでした。（単純なことかもしれないですけど）

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Target.Cells(1)
If Application.Intersect(myRng1, Range("D1")) Is Nothing Then Exit Sub
Set myRng2 = Range("D1").CurrentRegion
With myRng2

If myRng1 = "" Then
ActiveSheet.ShowAllData
Else
.AutoFilter Field:=4, Criteria1:=myRng1.Value
End If
End With
End Sub

回答No.1

n-jun

＞.AutoFilter Field:=4, Criteria1:=myRng1.Value
.AutoFilter Field:=4, Criteria1:="=*" & myRng1.Value & "*"

かな？

お礼

ありがとうございます！
="*" & my・・・・　という記述にしてたので出来なかったのですね。