Thanks winner Here is the full list. Picks is total picks 1 to 6. Backups is the number of times that stock code was pick #6.

Code Picks BackUps Rank
ATM 137 12 1
OCA 117 8 2
PEB 92 5 3
PX1 82 8 4
MFT 77 10 5
HGH 70 10 6
EBO 66 12 7
IFT 64 10 8
SKT 60 3 9
FPH 58 6 10
AIR 43 14 11
HLG 38 8 12
STU 35 4 13
ZEL 35 8 13
PPH 33 4 15
FBU 32 7 16
IKE 32 3 16
AIA 31 6 18
ARV 31 7 18
SKO 30 6 20
BLT 28 7 21
RYM 28 3 21
SPK 28 8 21
AFT 26 11 24
KPG 25 5 25
ERD 24 4 26
SML 24 5 26
VGL 24 3 26
FRE 22 3 29
KMD 22 6 29
THL 22 6 29
APL 20 1 32
SUM 19 4 33
TWR 19 3 33
WBC 17 4 35
ANZ 16 7 36
CVT 16 2 36
SAN 16 3 36
SKC 16 2 36
GNE 15 7 40
MPG 15 3 40
NZO 15 1 40
POT 15 5 40
SKL 15 8 40
CDI 14 3 45
ALF 13 2 46
MCY 13 3 46
EVO 12 2 48
GTK 12 1 48
MCK 12 2 48
RAK 12 1 48
TLT 12 2 48
WHS 12 2 48
MEL 11 2 54
SCL 11 4 54
TRU 11 0 54
WDT 11 0 54
ARB 10 2 58
BRM 10 2 58
MHJ 10 1 58
NWF 10 2 58
SCT 10 2 58
BOT 9 0 63
CAV 9 1 63
CEN 9 2 63
MLN 9 2 63
BGP 8 2 67
CBD 8 2 67
CNU 8 1 67
FNZ 8 4 67
NZR 8 1 67
TRA 8 4 67
VTL 8 1 67
ARG 7 1 74
GEN 7 0 74
HMY 7 0 74
NTL 7 1 74
GXH 6 1 78
MEE 6 1 78
PGW 6 1 78
TLL 6 2 78
DGL 5 4 82
FSF 5 2 82
MOA 5 0 82
NPH 5 2 82
NZX 5 1 82
QEX 5 0 82
SPY 5 0 82
MMH 4 0 89
RBD 4 1 89
SDL 4 0 89
SEK 4 1 89
TNZ 4 1 89
AMP 3 2 94
DIV 3 2 94
JLG 3 1 94
MHM 3 0 94
NZK 3 1 94
PIL 3 1 94
PYS 3 1 94
USG 3 1 94
ASF 2 1 102
ENS 2 0 102
FWL 2 0 102
OZY 2 1 102
PFI 2 0 102
PLX 2 2 102
RUA 2 0 102
TWF 2 0 102
USF 2 0 102
AGL 1 0 111
CGF 1 0 111
CMO 1 1 111
FCG 1 1 111
KFL 1 1 111
MDZ 1 0 111
MZY 1 0 111
NPF 1 0 111
NZL 1 0 111
NZM 1 0 111
PCT 1 0 111
RAD 1 0 111
SPN 1 0 111
TLS 1 1 111
VCT 1 1 111


If anyone is interested, here is the VBA code used to analyse the data published for the competition and to output the picks into a list.

Code:
Option Explicit

Dim MyPicks(500) As MyStock         'Export array for all picks
Dim StkCount As Long                'Counter to record number of unique picks


Sub GetStats()

Dim LC As Long                'Loop
Dim AllPicks() As Variant                   'Import array

AllPicks = ThisWorkbook.Sheets("Sheet1").Range("B2:B353").Value
StkCount = 1

MyPicks(1).Code = Left$(AllPicks(1, 1), 3)

For LC = 1 To 352
    Call ProcessPick(Left$(AllPicks(LC, 1), 3))
    Call ProcessPick(Mid$(AllPicks(LC, 1), 5, 3))
    Call ProcessPick(Mid$(AllPicks(LC, 1), 9, 3))
    Call ProcessPick(Mid$(AllPicks(LC, 1), 13, 3))
    Call ProcessPick(Mid$(AllPicks(LC, 1), 17, 3))
    Call ProcessPick(Right$(AllPicks(LC, 1), 3), True)
Next LC


With ThisWorkbook.Sheets("Sheet2")
    For LC = 1 To StkCount
        .Range("A" & LC).Value = MyPicks(LC).Code
        .Range("B" & LC).Value = MyPicks(LC).Count
        .Range("C" & LC).Value = MyPicks(LC).BackUp
    Next LC
End With

MsgBox "Finished processing picks", vbInformation, "Done"

End Sub


Sub ProcessPick(NewPick As String, Optional IsBackUp As Boolean)

Dim NewStk As Long

    NewStk = CheckNew(NewPick)
    If NewStk = 0 Then
        StkCount = StkCount + 1
        MyPicks(StkCount).Code = NewPick
        MyPicks(StkCount).Count = 1
        NewStk = StkCount
    Else
        MyPicks(NewStk).Count = MyPicks(NewStk).Count + 1
    End If
    If IsBackUp Then MyPicks(NewStk).BackUp = MyPicks(NewStk).BackUp + 1

End Sub


Function CheckNew(CodeToCheck As String) As Long

Dim IL As Long

CheckNew = 0

For IL = 1 To StkCount
    If MyPicks(IL).Code = CodeToCheck Then
        CheckNew = IL
        Exit For
    End If
Next IL

End Function


Also in a separate module:


Option Explicit

Public Type MyStock
    Code As String
    Count As Long
    BackUp As Long
End Type