I got another one for you Ed to fix your opening issues.
Replace:
Code:
filen = CurDir + "\" + Format(teamnum) + ".jpg"
With:
Code:
Dim sCurDir As String
sCurDir = Mid(ThisWorkbook.FullName, 1, Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name))
filen = sCurDir + "\" + Format(teamnum) + ".jpg"
That way the team pictures will load if you open the file by double clicking, open recent, or file open.
Hope this helps,
-Oris-