.Find to look through numerous sheets

[XcelNoobster]

I need some help with using the .find to search through numerous sheets.

I have a sheet with Ids that I want to loop through each one and search each sheet for that value's location then output the location on a new sheet called "Results"

This is what I have so far but getting an error and not sure if my logic is correct.

Sub findIds()

Dim I As Long, temp As String
Dim A As Integer
Dim firstAddress As String
Dim sht As Worksheet
Dim c As Range

For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
    temp = Cells(I, "A").Value
    For Each sht In ThisWorkbook.Sheets
        Set c = .Find(temp, LookIn:=xlValues)
        If Not x Is Nothing Then
            firstAddress = c.Address
            Do
            Sheets("Results").Range("D" & I) = firstAddress
        End If
    Next sht
Next I

End Sub

 

[RobP]

Hi Noobster,

almost there I think .. well done.

I tried this (amended slightly from yours). I think ok providing the value you want is only on the sheet once - else another loop of some kind will need to be looked at.
You also had a Do statement which was missing a Loop, but isn't necessary here anyway so I removed it.

Sub findIds()

Dim I As Long, temp As String
Dim A As Integer
Dim firstAddress As String
Dim sht As Worksheet
Dim c As Range

For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
    temp = Cells(I, "A").Value
    For Each sht In ActiveWorkbook.Sheets
    
        With sht.Cells
        
          Set Rng = .Find(What:=temp, After:=ActiveCell, LookIn:=xlFormulas, _
             LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
             MatchCase:=False, SearchFormat:=False)
        
            If Not Rng Is Nothing Then
                firstAddress = Rng.Address
                Sheets("Results").Range("D" & I) = firstAddress
            End If
        End With
    Next sht
Next I

End Sub