title: VBA Excel couldn't find custom values from MS Project
body: <p>I've been trying to find Text1 from MS Project using Excel VBA .Find method but it doesn't seem to be working. I have a working code but it is very slow because it loops through every task. Here is my code:</p>
  <pre><code>Sub Exp()
      With Application.FileDialog(msoFileDialogOpen)
      .Filters.Clear
      .Filters.Add &quot;MPD&quot;, &quot;*.mpp*&quot;
         If .Show = True Then
            Dim getfilename As String
            Dim appProj As MSProject.Application
            Dim Found As Boolean
            Dim TaskObject As Object
            getfilename = .SelectedItems(1)
            Set appProj = CreateObject(&quot;Msproject.Application&quot;)
               appProj.FileOpen (getfilename)
               appProj.Visible = True
            Found = appProj.Find (Field:=&quot;Text1&quot;, Test:=&quot;equals&quot;, Value:=&quot;Exp1&quot;)
            If Found Then
               Set TaskObject = appProj.ActiveCell.Task
               Debug.Print TaskObject.UniqueID &amp; &quot; - &quot; &amp; TaskObject.Name
            Else
               MsgBox &quot;Not Found&quot;
            End If
         End If
      End With
     End Sub
  </code></pre>
  <p>How can i get this code working or is there another way of doing this?
  Thanks for your answers.</p>