Thank You Very Much.. It Worked.. 
I added a new column in my Mastersheet for student name. That is in Column A , and I moved Student Id to Column B.
The individual utilization sheet remains same.
Is this correct:
lr = master.Range("B4").End(xlDown).Row
For Each studentID In master.Range("B4:B" & lr)
StrFile = Dir(path & "timeuti*" & studentID.Value & "*.xls*")
If Len(StrFile) > 0 Then
Set wbtime = Workbooks.Open(path & StrFile, , 1)
Set wstime = wbtime.Worksheets("Individual-Utilization")
With wstime
Set finddate = .Range("A4", .Range("A4").End(xlDown)).Find(Date, lookat:=xlWhole)
If Not finddate Is Nothing Then
finddate.Offset(, 1).Resize(, 21).Copy studentID.Offset(, 1)
End If
End With
wbtime.Close 0
End If
Bookmarks