How to copy the contents from the sub files to the master worksheet based on the id?

I tried changing the Date keyword to ComboBox, but it doesn't seem to work.

With wstime
            Set finddate = .Range("A4", .Range("A4").End(xlDown)).Find(ComboBox1, lookat:=xlWhole)
            If Not finddate Is Nothing Then
                finddate.Offset(, 1).Resize(, 21).Copy studentID.Offset(, 1)
            End If
End With