Sub unmatched()

spr3RowCount = 1
spr2RowCount = 1
With Sheets("spr2")
Do While .Range("A" & spr2RowCount) < ""
FindNum = .Range("A" & spr2RowCount)
With Sheets("spr1")
Set c = .Columns("A:A").Find(what:=FindNum, _
LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
Sheets("spr3").Range("A" & spr3RowCount) = FindNum
spr3RowCount = spr3RowCount + 1
End If

End With
spr2RowCount = spr2RowCount + 1
Loop
End With

End Sub


"vrk1" wrote:

Hi,

My customer wants an "Unmatched Query" done in Excel. He doesn't want to
use MS Access to create this. Is there a Macro or inbuilt Excel function
that would let us do this?

Scenario:
In a single workbook, there are 3 spreadsheets - spr1, spr2, and spr3. spr1
and spr2 have just one columns of names in them. My customer wants to find
all the names in spr2 that does not match with the names in spr1 and transfer
the result in spr3.

Is this possible? Please help.