Code for guest list attendance

Hi John,

Can you please explain to me exactly what this block of code is doing? Also, is it possible for it to accept in the InputBox multiple names and store them into an array, looping through its find logic?

Set xx = Columns(1).Find(x, LookIn:=xlValues, lookat:=xlWhole)
Set yy = Columns(2).Find(y, LookIn:=xlValues, lookat:=xlWhole)
    If Not xx Is Nothing And Not yy Is Nothing Then
        If xx.Row = yy.Row Then Cells(xx.Row, Columns.Count).End(1).Offset(, 1) = z
    Else
        Range("A" & Rows.Count).End(3)(2) = x
        Range("B" & Rows.Count).End(3)(2) = y
    End If
Set xx = Nothing
Set yy = Nothing

Originally Posted by JOHN H. DAVIS

Maybe:

Sub jrausch2()
Dim x As String, y As String, z As String, xx As Range, yy As Range
x = InputBox("Please Enter the First Name")
y = InputBox("Please Enter the Last Name")
z = InputBox("Please Enter the Number")
Set xx = Columns(1).Find(x, LookIn:=xlValues, lookat:=xlWhole)
Set yy = Columns(2).Find(y, LookIn:=xlValues, lookat:=xlWhole)
    If Not xx Is Nothing And Not yy Is Nothing Then
        If xx.row = yy.row Then Cells(xx.row, Columns.Count).End(1).Offset(, 1) = z
    Else
        Range("A" & Rows.Count).End(3)(2) = x
        Range("B" & Rows.Count).End(3)(2) = y
    End If
Set xx = Nothing
Set yy = Nothing
End Sub