Excel 特定の文字を含む行を抽出したい。

Question

前提・実現したいこと

A列の中から特定の文字がある行を抽出して、同じシートの空いてる場所か別シートに貼り付けたいです。
「検索する文字は？」というポップアップはでるのですが、そのシート内にある単語を入力しても検索ができず、「**」はありませんとエラーになります。

発生している問題・エラーメッセージ

エラーメッセージ
「検索する文字は？」というポップアップはでるのですが、そのシート内にある単語を入力しても検索ができず、「**」はありませんとエラーになります。
単語を入力せず空欄で検索を押すと「空欄です」というポップアップは出ました。

該当のソースコード

Sub 文字検索()
Dim Rng As Range, myRow As Range
Dim fAdr As String, myWd As String
myWd = Application.InputBox("検索する文字は？")
If myWd = "" Then
MsgBox "空欄です"
Exit Sub
ElseIf myWd = "False" Then
MsgBox "キャンセルされました"
Exit Sub
End If
With ActiveSheet.Columns(3)
Set Rng = .Find(What:=myWd, LookIn:=xlValues, lookat:=xlPart)
If Not Rng Is Nothing Then
fAdr = Rng.Address
Set myRow = Cells(Rng.Row, 1)
Do
Set myRow = Union(myRow, Cells(Rng.Row, 1))
Set Rng = .FindNext(Rng)
If Rng.Address = fAdr Then Exit Do
Loop
End If
End With
If Not myRow Is Nothing Then
myRow.EntireRow.Copy
MsgBox "「 " & myWd & " 」は: " & myRow.Count & " 行です"
Else
MsgBox "「 " & myWd & " 」はありません！"
End If
Set Rng = Nothing
Set myRow = Nothing
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[FromMZ1500]

ちゃんと動いてるような気が。
Ｃ列に1～30を連番で入れて、8を検索したら、8,18,28の３行が正常にヒット。
全角と半角を間違ったとかでは？

[sh444]

お返事遅くなりすみません、C列を検索する設定になっていたんですね。
vbaに詳しくなく、A列だと思っておりました。
C列ですと検索できました。
ありがとうございますｍ

Answer 1

'With ActiveSheet.Columns(3)
With ActiveSheet.Columns(1)

Comments

[sh444]

With ActiveSheet.Columns(1)
に変更したところ、A列の単語を検索できました！
ありがとうございます！