CTRL+F as a marco with search boy

[beruf3]

I have a simple table with 4 columns in excel.

[TABLE="width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Address[/TD]
[TD]Current position[/TD]
[TD]Previous position[/TD]
[/TR]
[TR]
[TD]Cain[/TD]
[TD]AAA[/TD]
[TD]XXX[/TD]
[TD]YYY[/TD]
[/TR]
[TR]
[TD]Abel[/TD]
[TD]BB[/TD]
[TD]ZZZ[/TD]
[TD]WWW[/TD]
[/TR]
</tbody>[/TABLE]

But I have some users who can't even use CTRL+F in excel.
They are very basic Windows users.

So I'm trying to recreate CTR+F as a macro with a search box.

So when they type "Cain" in the Search box that it shows:

[TABLE="width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Address[/TD]
[TD]Current position[/TD]
[TD]Previous position[/TD]
[/TR]
[TR]
[TD]Cain[/TD]
[TD]AAA[/TD]
[TD]XXX[/TD]
[TD]YYY[/TD]
[/TR]
</tbody>[/TABLE]

I would put that search box in one sheet, and table in second sheet.
Maybe even an exe. file so that they don't need to even open excel file.

 

[beruf3]

Sub myFind()
'Standard module code, like: Module1.
'Find my data and list found rows in report!
Dim rngData As Object
Dim strDataShtNm$, strReportShtNm$, strMySearch$, strMyCell$
Dim lngLstDatCol&, lngLstDatRow&, lngReportLstRow&, lngMyFoundCnt&

On Error GoTo myEnd
'*******************************************************************************
strDataShtNm = "Sheet2" 'This is the name of the sheet that has the data!
strReportShtNm = "Sheet1" 'This is the name of the report to sheet!
'*******************************************************************************
Sheets(strReportShtNm).Select
Application.ScreenUpdating = False

'Define data sheet's data range!
Sheets(strDataShtNm).Select

With ActiveSheet.UsedRange
lngLstDatRow = .Rows.Count + .Row - 1
lngLstDatCol = .Columns.Count + .Column - 1
End With

Set rngData = ActiveSheet.Range(Cells(1, 1), Cells(lngLstDatRow, lngLstDatCol))

'Get the string to search for!
strMySearch = InputBox("Enter what to search for, below:" & vbLf & vbLf & _
"Note: The search is case sensitive!", _
Space(3) & "Find All", _
"")

'Do the search!
For Each Cell In rngData
strMyCell = Cell.Value

'If found then list entire row!
If strMyCell = strMySearch Then
lngMyFoundCnt = lngMyFoundCnt + 1
ActiveSheet.Rows(Cell.Row & ":" & Cell.Row).Copy

With Sheets(strReportShtNm)
'Paste found data's row!
lngReportLstRow = .UsedRange.Rows.Count + .UsedRange.Row
ActiveSheet.Paste Destination:=.Range("A" & lngReportLstRow).EntireRow
End With
End If
Next Cell

myEnd:
'Do clean-up!
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sheets(strReportShtNm).Select

'If not found then notify!
If lngMyFoundCnt = 0 Then
MsgBox """" & strMySearch & """" & Space(3) & "Was not found!", _
vbCritical + vbOKOnly, _
Space(3) & "Not Found!"
End If
End Sub

 

[beruf3]

This code works very well for me.
I would just like to edit it, so that when I search for example "Cain%Junior"
that it returns all the rows for which part of the Name column is AND Cain AND Junior.