Are you trying to do like this?
Order of the worksheets doesn't matter.
Sub Draft()
    Dim ws As Worksheet, sh As Worksheet
    Dim player As String, team As String
    Dim r As Range, c As Range
    For Each ws In Worksheets
        If ws.Name Like "Draft#*" Then
            For Each r In ws.Range("e2", ws.Range("e" & Rows.Count).End(xlUp))
                player = r.Value: r.Range("b1:c1").ClearContents
                For Each sh In Worksheets
                    If Not sh.Name Like "Draft*" Then
                        team = sh.[a1]
                        Set c = sh.Cells.Find(player, , , 1)
                        If Not c Is Nothing Then
                            r(, 2).Value = team
                            r(, 3).Value = c.EntireRow.Range("a1").Value
                            Exit For
                        End If
                    End If
                Next
            Next
        End If
    Next
End Sub