Sub MatchInvNo()
'ActiveWorkbook.RefreshAll

   Dim SrcWS        As Worksheet
   Dim TgtWS        As Worksheet
   Dim TgtRng       As Range
   Dim TgtCel       As Range
   Dim LR           As Long
   Dim myInv        As Range
   Set SrcWS = Sheets("JOBCOST")
   Set TgtWS = Sheets("AGING")

   With TgtWS
      LR = .Range("E" & .Rows.Count).End(xlUp).Row
      Set TgtRng = .Range("E2:E" & LR)
      For Each TgtCel In TgtRng

         Set myInv = SrcWS.Columns(11).Find(TgtCel.Value, , xlValues, xlPart, xlByRows, xlNext, False)
         If Not myInv Is Nothing Then
            .Cells(TgtCel.Row, "V").Value = SrcWS.Cells(myInv.Row, "F").Value
         End If
      Next TgtCel
   End With
End Sub