' Code for general declaration
Public listGroup, listGroup1, listGroup2, mon
Public title1, title2, title3, title4, title5, title6, title7
'Code for initialization
Private Sub Workbook_Open()
listGroup1 = Array("Associated", "Express Newspapers", "Independent")
listGroup2 = Array("Guardian Newspapers", "MGN", "News International", "Scotsman", "Telegraph")
listGroup = Array("Associated", "Express Newspapers", "Independent", "Guardian Newspapers", "MGN", "News International", "Scotsman", "Telegraph")
mon = Array("Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
title1 = Array("Associated Newspapers Limited/Daily Mail Genral Trust/Scottish Daily Mail", "Associated Newspapers Ltd./Mail on Sunday/Live magazine (used to be Night and Day)", "Associated Newspapers Ltd/Daily Mail General Trust/Daily Mail Weekend Mag and Femail", "Associated Newspapers Ltd/Daily Mail General Trust/Mail on Sunday", "Associated Newspapers Ltd/Daily Mail General Trust/Mail on Sunday ADVERTISING", "Associated Newspapers Ltd/Mail on Sunday/You magazine", "Associated Newspapers Ltd/Scottish Mail on Sunday/", "London Lite/London Lite (separate newspapers)RF Editorial Client")
title2 = Array("Northern and Shell/Express Newspaper Group/Daily Express", "Northern and Shell/Express Newspaper Group/Daily Star", "Northern and Shell/Express Newspaper Group/Saturday Express Magazine", "Northern and Shell/Express Newspaper Group/Star Magazine", "Northern and Shell/Express Newspaper Group/Sunday Express", "Northern and Shell/Express Newspaper Group/Sunday Express Magazine", "Northern and Shell/Express Newspaper Group/Take 5", "OK Magazine/Express Newspapers/")
title3 = Array("Independent Newspaper", "Independent on Sunday")
title4 = Array("Guardian News Media/The Guardian/ Guardian Unlimited / Observer/RF EDITORIAL CLIENT", "USA WEEKEND MAGAZINE")
title5 = Array("MGN Limited/Sunday Mail/scottish daily record and sunday mail ltd", "The People/Trinity Mirror Group/MGN", "Trinity Mirror plc/MGN ltd/Take It Easy Magazine", "Trinity Mirror Plc/MGN/We Love Telly", "Trinity Mirror/Mgn Limited/Sunday mirror")
title6 = Array("Scotsman//Scotman publications", "Scotsman//Scotman publications")
title7 = Array("Telegraph/Stella Magazine/RF EDITORIAL CLIENT", "Telegraph/Sunday", "The Daily Telegraph")
End Sub