>>543
サンプルで作ってみたのですが、思った通りの動作ができません・・・
改善点をお分かりになりますでしょうか？

Sub jikkou()
Dim Keyword As Range
Dim CheckList As Range
Dim Checkcolumn As Long

With ActiveWorkbook.Worksheets("Sheet1")

Set Keyword = .Range("F2:F4") '順に田中、山田、井上
Set CheckList = .Range("A2:C9")
Checkcolumn = 2

Call Test(Keyword, CheckList, Checkcolumn)

End With
End Sub