Match column contents on 2 worksheets and input text when match is found

[bcselect]

I have Sheet 1 and Sheet 2. They both contain the same list of names. Names are shown in 2 columns, Last name and First Name.
Sheet 1 also has a column ("A") for separate input. When an "M" is put in Sheet 1 cell A2, it should get the name in B2 & C2, look for a match
in Sheet 2, and when found place a "1" in Sheet 2 cell C2. It should continue until all rows have been cfhecked. I've been at it for hours but no luck.

 

[bcselect]

I have Sheet 1 and Sheet 2. They both contain the same list of names. Names are shown in 2 columns, Last name and First Name.
Sheet 1 also has a column ("A") for separate input. When an "M" is put in Sheet 1 cell A2, it should get the name in B2 & C2, look for a match
in Sheet 2, and when found place a "1" in Sheet 2 cell C2. It should continue until all rows have been cfhecked. I've been at it for hours but no luck.

I see several views but no replies. Did I not explain it well or is this not possible? This is as far as I got before I realized that I had no clue where to go.

Sub Match()

Dim Cl As Range
Dim Dic As Object

Set Dic = CreateObject("scripting.dictionary")
With Sheets("Sheet2")
For Each Cl In .Range("A1", .Range("A" & Rows.Count).End(xlUp))
Dic(Cl.Value) = Cl.Offset(, 3).Value
Next Cl
End With
With Sheets("Sheet1")
For Each Cl In .Range("M1", .Range("M" & Rows.Count).End(xlUp))
If Dic.exists(Cl.Value) Then Cl.Offset(, 3).Value = Dic(Cl.Value)
Next Cl
End With
End Sub