This should be close...

Sub FindStuff()
   Dim wks As Worksheet
   Dim rngFound As Range
   
   For Each wks In Worksheets
       Set rngFound = wks.Cells.Find(What:="asdf", _
                                     LookAt:=xlPart, _
                                     LookIn:=xlFormulas, _
                                     MatchCase:=False)
       If Not rngFound Is Nothing Then
           wks.Select
           rngFound.Select
           Exit For
       End If
   Next wks
End Sub