title: calling a array element in .Find function
body: <p>I have an array with "n" number of strings, i want to call every string in the array in .find function, and search whole sheet for the respective string, then display the position of the string in the worksheet.</p>
  
  <pre><code>Dim SCtr as long
  
  Dim whattofind as variant
  
  WhatToFind = Array("pdy", "Pdx", "temp")
  
  For SCtr = LBound(WhatToFind) To UBound(WhatToFind)
  
       'here is the problem it was searching only first value in the array not going to the next item in the array
  
      Set Cell = Cells.Find(What:=WhatToFind(SCtr), After:=ActiveCell, LookIn:= _
                           xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows,                  SearchDirection:= _xlNext, MatchCase:=False, SearchFormat:=False)
  
        If Not Cell Is Nothing Then
             'do something
  Next SCtr
  </code></pre>
  
  <p>which funtion can be used for this purpose or can something be done to make this code work</p>