Use Find On All Worksheets

I have a probably pretty basic question. I have a lot of data indexed by a catalog number (call it N). Data for each catalog item with number N can be found on any number of different worksheets in my workbook. What I want to do is have a function that will take two arguments -- a catalog number = N and an index = m -- that will return the sheetname for the mth occurrence of data corresponding to N. So if N occurs on sheet 1 = "monkey" and sheet 2 = "gorilla", function(N,1) will return "monkey" and function(N,2) will return gorilla.

I was approaching this using a recorded Find macro and a for loop running through the sheets like this:
===

Count = 0
For Each sht In ActiveWorkbook.Worksheets
With sht
Set cell = cell.Find(What:=N, LookIn:=xlValues, LookAt:=xlPart, _
MatchCase:=False, SearchOrder:=xlByColumns)
If Not cell Is Nothing Then
Count = Count + 1
If Count = m Then
name = cell.Worksheet.name
End If
End If
End With
Next sht