Procedure too long - help!!

P

philscrase

Board Regular
Joined
Feb 1, 2007
Messages
142
I have a drop down list on a userform that displays the value of certain cells on a sheet depending on what the drop down list specifies (code below) however when i compile / try to run, i receive an error message stating that this procedure is too large. Is there anyway i can shorten the code to make it work?

I quite a novice so any advice may need to be simplified for me. i really hope there is an easy answer to this. I did think of maybe creating a function for this to call so i can split it up into 3 parts - but i dont know how to create and then call a function!

Private Sub CboOutputWkVariSelect_Change()
If CboOutputWkVariSelect.Text = "CY01 Defendant pays claim post summons" Then

AdultWkVariValue = Sheets("Sheet1").Range("e91").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f91").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g91").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h91").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i91").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j91").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k91").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l91").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m91").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n91").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o91").Value * 100
YthEffValue = Sheets("Sheet1").Range("p91").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q91").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r91").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY02 Small Claim Allocation & Hearing & Payment" Then
AdultWkVariValue = Sheets("Sheet1").Range("e92").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f92").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g92").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h92").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i92").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j92").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k92").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l92").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m92").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n92").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o92").Value * 100
YthEffValue = Sheets("Sheet1").Range("p92").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q92").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r92").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY03 Fast-track Allocation & Hearing & Payment" Then
AdultWkVariValue = Sheets("Sheet1").Range("e93").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f93").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g93").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h93").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i93").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j93").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k93").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l93").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m93").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n93").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o93").Value * 100
YthEffValue = Sheets("Sheet1").Range("p93").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q93").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r93").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY04 Multi-track Allocation & Hearing & Payment" Then
AdultWkVariValue = Sheets("Sheet1").Range("e94").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f94").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g94").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h94").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i94").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j94").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k94").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l94").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m94").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n94").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o94").Value * 100
YthEffValue = Sheets("Sheet1").Range("p94").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q94").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r94").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY05 Judgement in default" Then
AdultWkVariValue = Sheets("Sheet1").Range("e95").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f95").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g95").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h95").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i95").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j95").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k95").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l95").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m95").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n95").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o95").Value * 100
YthEffValue = Sheets("Sheet1").Range("p95").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q95").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r95").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY06 Settled out of court (MERGED)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e96").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f96").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g96").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h96").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i96").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j96").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k96").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l96").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m96").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n96").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o96").Value * 100
YthEffValue = Sheets("Sheet1").Range("p96").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q96").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r96").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY08 Enforcement - Attachment of Earnings" Then
AdultWkVariValue = Sheets("Sheet1").Range("e97").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f97").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g97").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h97").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i97").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j97").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k97").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l97").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m97").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n97").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o97").Value * 100
YthEffValue = Sheets("Sheet1").Range("p97").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q97").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r97").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY09 Enforcement - Charging Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e98").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f98").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g98").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h98").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i98").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j98").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k98").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l98").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m98").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n98").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o98").Value * 100
YthEffValue = Sheets("Sheet1").Range("p98").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q98").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r98").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY10 Enforcement - Warrant" Then
AdultWkVariValue = Sheets("Sheet1").Range("e99").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f99").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g99").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h99").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i99").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j99").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k99").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l99").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m99").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n99").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o99").Value * 100
YthEffValue = Sheets("Sheet1").Range("p99").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q99").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r99").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY11 Domestic violence" Then
AdultWkVariValue = Sheets("Sheet1").Range("e100").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f100").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g100").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h100").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i100").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j100").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k100").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l100").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m100").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n100").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o100").Value * 100
YthEffValue = Sheets("Sheet1").Range("p100").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q100").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r100").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY12 Insolvency" Then
AdultWkVariValue = Sheets("Sheet1").Range("e101").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f101").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g101").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h101").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i101").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j101").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k101").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l101").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m101").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n101").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o101").Value * 100
YthEffValue = Sheets("Sheet1").Range("p101").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q101").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r101").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY13 Public Cases - from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e102").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f102").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g102").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h102").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i102").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j102").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k102").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l102").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m102").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n102").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o102").Value * 100
YthEffValue = Sheets("Sheet1").Range("p102").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q102").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r102").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY14 Private Cases - from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e103").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f103").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g103").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h103").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i103").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j103").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k103").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l103").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m103").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n103").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o103").Value * 100
YthEffValue = Sheets("Sheet1").Range("p103").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q103").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r103").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY15 Adoption Cases - from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e104").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f104").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g104").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h104").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i104").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j104").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k104").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l104").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m104").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n104").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o104").Value * 100
YthEffValue = Sheets("Sheet1").Range("p104").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q104").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r104").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY16 Divorce - Uncontested (from Petition to Decree Absolute)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e105").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f105").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g105").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h105").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i105").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j105").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k105").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l105").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m105").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n105").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o105").Value * 100
YthEffValue = Sheets("Sheet1").Range("p105").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q105").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r105").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY17 Divorce - Contested (from Petition to Decree Absolute)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e106").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f106").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g106").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h106").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i106").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j106").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k106").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l106").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m106").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n106").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o106").Value * 100
YthEffValue = Sheets("Sheet1").Range("p106").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q106").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r106").Value * 100
End If

If CboOutputWkVariSelect.Text = "CY18 Ancillary relief - From Start to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e107").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f107").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g107").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h107").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i107").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j107").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k107").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l107").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m107").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n107").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o107").Value * 100
YthEffValue = Sheets("Sheet1").Range("p107").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q107").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r107").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR01 Class 1 - Not Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e108").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f108").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g108").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h108").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i108").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j108").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k108").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l108").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m108").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n108").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o108").Value * 100
YthEffValue = Sheets("Sheet1").Range("p108").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q108").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r108").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR02 Class 1 - Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e109").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f109").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g109").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h109").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i109").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j109").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k109").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l109").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m109").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n109").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o109").Value * 100
YthEffValue = Sheets("Sheet1").Range("p109").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q109").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r109").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR03 Class 2 - Not Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e110").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f110").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g110").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h110").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i110").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j110").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k110").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l110").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m110").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n110").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o110").Value * 100
YthEffValue = Sheets("Sheet1").Range("p110").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q110").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r110").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR04 Class 2 - Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e111").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f111").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g111").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h111").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i111").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j111").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k111").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l111").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m111").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n111").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o111").Value * 100
YthEffValue = Sheets("Sheet1").Range("p111").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q111").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r111").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR05 Class 3 - Not Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e112").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f112").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g112").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h112").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i112").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j112").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k112").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l112").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m112").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n112").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o112").Value * 100
YthEffValue = Sheets("Sheet1").Range("p112").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q112").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r112").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR06 Class 3 - Guilty Plea" Then
AdultWkVariValue = Sheets("Sheet1").Range("e113").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f113").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g113").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h113").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i113").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j113").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k113").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l113").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m113").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n113").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o113").Value * 100
YthEffValue = Sheets("Sheet1").Range("p113").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q113").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r113").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR07 Committal for Sentencing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e114").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f114").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g114").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h114").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i114").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j114").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k114").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l114").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m114").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n114").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o114").Value * 100
YthEffValue = Sheets("Sheet1").Range("p114").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q114").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r114").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR08 Appeal against Conviction" Then
AdultWkVariValue = Sheets("Sheet1").Range("e115").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f115").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g115").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h115").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i115").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j115").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k115").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l115").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m115").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n115").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o115").Value * 100
YthEffValue = Sheets("Sheet1").Range("p115").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q115").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r115").Value * 100
End If

If CboOutputWkVariSelect.Text = "CR09 Appeal against Sentence" Then
AdultWkVariValue = Sheets("Sheet1").Range("e116").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f116").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g116").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h116").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i116").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j116").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k116").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l116").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m116").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n116").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o116").Value * 100
YthEffValue = Sheets("Sheet1").Range("p116").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q116").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r116").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA01 Adult - Indictable only" Then
AdultWkVariValue = Sheets("Sheet1").Range("e117").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f117").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g117").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h117").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i117").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j117").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k117").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l117").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m117").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n117").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o117").Value * 100
YthEffValue = Sheets("Sheet1").Range("p117").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q117").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r117").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA02 Committal for Trial" Then
AdultWkVariValue = Sheets("Sheet1").Range("e118").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f118").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g118").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h118").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i118").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j118").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k118").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l118").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m118").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n118").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o118").Value * 100
YthEffValue = Sheets("Sheet1").Range("p118").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q118").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r118").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA03 Committal for sentence" Then
AdultWkVariValue = Sheets("Sheet1").Range("e119").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f119").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g119").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h119").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i119").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j119").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k119").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l119").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m119").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n119").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o119").Value * 100
YthEffValue = Sheets("Sheet1").Range("p119").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q119").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r119").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA04 Adult Either Way - Guilty Plea at First Hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e120").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f120").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g120").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h120").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i120").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j120").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k120").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l120").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m120").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n120").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o120").Value * 100
YthEffValue = Sheets("Sheet1").Range("p120").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q120").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r120").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA05 Adult Either Way - Discontinued before hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e121").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f121").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g121").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h121").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i121").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j121").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k121").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l121").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m121").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n121").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o121").Value * 100
YthEffValue = Sheets("Sheet1").Range("p121").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q121").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r121").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA06 Adult Either Way - Not Guilty Plea and Effective Trial" Then
AdultWkVariValue = Sheets("Sheet1").Range("e122").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f122").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g122").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h122").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i122").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j122").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k122").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l122").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m122").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n122").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o122").Value * 100
YthEffValue = Sheets("Sheet1").Range("p122").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q122").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r122").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA07 Adult Summary Motoring - Guilty Plea at First Hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e123").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f123").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g123").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h123").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i123").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j123").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k123").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l123").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m123").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n123").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o123").Value * 100
YthEffValue = Sheets("Sheet1").Range("p123").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q123").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r123").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA08 Adult Summary Motoring - Discontinued before trial (MERGED)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e124").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f124").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g124").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h124").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i124").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j124").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k124").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l124").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m124").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n124").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o124").Value * 100
YthEffValue = Sheets("Sheet1").Range("p124").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q124").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r124").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA09 Adult Summary Motoring - Not Guilty Plea and Effective Trial" Then
AdultWkVariValue = Sheets("Sheet1").Range("e125").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f125").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g125").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h125").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i125").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j125").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k125").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l125").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m125").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n125").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o125").Value * 100
YthEffValue = Sheets("Sheet1").Range("p125").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q125").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r125").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA10 Adult Summary Non Motoring (Recorded Crime) - Guilty Plea at First Hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e126").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f126").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g126").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h126").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i126").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j126").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k126").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l126").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m126").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n126").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o126").Value * 100
YthEffValue = Sheets("Sheet1").Range("p126").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q126").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r126").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA11 Adult Summary Non Motoring (Recorded Crime) - Discontinued before trial (MERGED)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e127").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f127").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g127").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h127").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i127").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j127").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k127").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l127").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m127").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n127").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o127").Value * 100
YthEffValue = Sheets("Sheet1").Range("p127").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q127").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r127").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA12 Adult Summary Non Motoring (Recorded Crime) - Not Guilty Plea and Effective Trial" Then
AdultWkVariValue = Sheets("Sheet1").Range("e128").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f128").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g128").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h128").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i128").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j128").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k128").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l128").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m128").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n128").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o128").Value * 100
YthEffValue = Sheets("Sheet1").Range("p128").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q128").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r128").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA13 Adult Summary Non Motoring (Other) - Guilty Plea at First Hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e129").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f129").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g129").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h129").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i129").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j129").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k129").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l129").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m129").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n129").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o129").Value * 100
YthEffValue = Sheets("Sheet1").Range("p129").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q129").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r129").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA14 Adult Summary Non Motoring (Other)- Discontinued before trial (MERGED)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e130").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f130").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g130").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h130").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i130").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j130").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k130").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l130").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m130").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n130").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o130").Value * 100
YthEffValue = Sheets("Sheet1").Range("p130").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q130").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r130").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA15 Adult Summary Non Motoring (Other) - Not Guilty Plea and Effective Trial" Then
AdultWkVariValue = Sheets("Sheet1").Range("e131").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f131").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g131").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h131").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i131").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j131").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k131").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l131").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m131").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n131").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o131").Value * 100
YthEffValue = Sheets("Sheet1").Range("p131").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q131").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r131").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA16 Family - Section 8 from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e132").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f132").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g132").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h132").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i132").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j132").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k132").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l132").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m132").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n132").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o132").Value * 100
YthEffValue = Sheets("Sheet1").Range("p132").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q132").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r132").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA17 Family - Emergency Protection Order from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e133").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f133").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g133").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h133").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i133").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j133").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k133").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l133").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m133").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n133").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o133").Value * 100
YthEffValue = Sheets("Sheet1").Range("p133").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q133").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r133").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA18 Care proceedings from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e134").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f134").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g134").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h134").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i134").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j134").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k134").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l134").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m134").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n134").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o134").Value * 100
YthEffValue = Sheets("Sheet1").Range("p134").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q134").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r134").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA19 Family - Adoption from Application to Final Order" Then
AdultWkVariValue = Sheets("Sheet1").Range("e135").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f135").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g135").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h135").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i135").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j135").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k135").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l135").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m135").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n135").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o135").Value * 100
YthEffValue = Sheets("Sheet1").Range("p135").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q135").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r135").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA20 Means Enquiry from Preparation of Means Enquiry to Result Time to Pay Decision" Then
AdultWkVariValue = Sheets("Sheet1").Range("e136").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f136").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g136").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h136").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i136").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j136").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k136").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l136").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m136").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n136").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o136").Value * 100
YthEffValue = Sheets("Sheet1").Range("p136").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q136").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r136").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA21 Collect Payment from Receipt to Reconciliation" Then
AdultWkVariValue = Sheets("Sheet1").Range("e137").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f137").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g137").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h137").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i137").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j137").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k137").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l137").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m137").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n137").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o137").Value * 100
YthEffValue = Sheets("Sheet1").Range("p137").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q137").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r137").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA22 Enforce Penalty from identification to transfer to enforcement office" Then
AdultWkVariValue = Sheets("Sheet1").Range("e138").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f138").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g138").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h138").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i138").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j138").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k138").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l138").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m138").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n138").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o138").Value * 100
YthEffValue = Sheets("Sheet1").Range("p138").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q138").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r138").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA23 Breach - from Summons / warrant to hearing" Then
AdultWkVariValue = Sheets("Sheet1").Range("e139").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f139").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g139").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h139").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i139").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j139").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k139").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l139").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m139").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n139").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o139").Value * 100
YthEffValue = Sheets("Sheet1").Range("p139").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q139").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r139").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA24 Fixed Penalty - Conditional / Not Conditional Offer - from check payment to confirmation of penalties" Then
AdultWkVariValue = Sheets("Sheet1").Range("e140").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f140").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g140").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h140").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i140").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j140").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k140").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l140").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m140").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n140").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o140").Value * 100
YthEffValue = Sheets("Sheet1").Range("p140").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q140").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r140").Value * 100
End If

If CboOutputWkVariSelect.Text = "MA25 Appeal to the Crown Court - from Start to Completion (admin)" Then
AdultWkVariValue = Sheets("Sheet1").Range("e141").Value * 100
AdtIneffValue = Sheets("Sheet1").Range("f141").Value * 100
AdtIneffTransValue = Sheets("Sheet1").Range("g141").Value * 100
AdtIneffMultiValue = Sheets("Sheet1").Range("h141").Value * 100
AdtEffValue = Sheets("Sheet1").Range("i141").Value * 100
AdtEffTransValue = Sheets("Sheet1").Range("j141").Value * 100
AdtEffMultiValue = Sheets("Sheet1").Range("k141").Value * 100
YouthWkVariValue = Sheets("Sheet1").Range("l141").Value * 100
YthIneffValue = Sheets("Sheet1").Range("m141").Value * 100
YthIneffTransValue = Sheets("Sheet1").Range("n141").Value * 100
YthIneffMultiValue = Sheets("Sheet1").Range("o141").Value * 100
YthEffValue = Sheets("Sheet1").Range("p141").Value * 100
YthEffTransValue = Sheets("Sheet1").Range("q141").Value * 100
YthEffMultiValue = Sheets("Sheet1").Range("r141").Value * 100
End If
End Sub
 
Sort by date Sort by votes
Sub CboOutputWkVariSelect_Change()
Select Case CboOutputWkVariSelect.Text
Case "CY01 Defendant pays claim post summons": rw=91
Case "CY02 Small Claim Allocation & Hearing & Payment": rw=92
Case "CY03 Fast-track Allocation & Hearing & Payment": rw=93
'...you get the idea --- continue this way until
Case "MA25 Appeal to the Crown Court - from Start to Completion (admin)": rw=141
End Select
With Sheets("Sheet1")
AdultWkVariValue = .cells(rw,5).Value * 100
AdtIneffValue = .cells(rw,6).Value * 100
AdtIneffTransValue = .cells(rw,7).Value * 100
AdtIneffMultiValue = .cells(rw,8).Value * 100
AdtEffValue = .cells(rw,9).Value * 100
AdtEffTransValue = .cells(rw,10).Value * 100
AdtEffMultiValue = .cells(rw,11).Value * 100
YouthWkVariValue = .cells(rw,12).Value * 100
YthIneffValue = .cells(rw,13).Value * 100
YthIneffTransValue = .cells(rw,14).Value * 100
YthIneffMultiValue = .cells(rw,15).Value * 100
YthEffValue = .cells(rw,16).Value * 100
YthEffTransValue = .cells(rw,17).Value * 100
YthEffMultiValue = .cells(rw,18).Value * 100
End Sub
 
Upvote 0
Sub CboOutputWkVariSelect_Change()
Select Case CboOutputWkVariSelect.Text
Case "CY01 Defendant pays claim post summons": rw=91
Case "CY02 Small Claim Allocation & Hearing & Payment": rw=92
Case "CY03 Fast-track Allocation & Hearing & Payment": rw=93
'...you get the idea --- continue this way until
Case "MA25 Appeal to the Crown Court - from Start to Completion (admin)": rw=141
End Select
With Sheets("Sheet1")
AdultWkVariValue = .cells(rw,5).Value * 100
AdtIneffValue = .cells(rw,6).Value * 100
AdtIneffTransValue = .cells(rw,7).Value * 100
AdtIneffMultiValue = .cells(rw,8).Value * 100
AdtEffValue = .cells(rw,9).Value * 100
AdtEffTransValue = .cells(rw,10).Value * 100
AdtEffMultiValue = .cells(rw,11).Value * 100
YouthWkVariValue = .cells(rw,12).Value * 100
YthIneffValue = .cells(rw,13).Value * 100
YthIneffTransValue = .cells(rw,14).Value * 100
YthIneffMultiValue = .cells(rw,15).Value * 100
YthEffValue = .cells(rw,16).Value * 100
YthEffTransValue = .cells(rw,17).Value * 100
YthEffMultiValue = .cells(rw,18).Value * 100
End With
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

C
  • Question Question
copy paste macro taking too long - need help
Replies
2
Views
1K
My Aswer Is This
My Aswer Is This
E
  • Question Question
2 Issues: Inefficient Array Read/Write Procedure & Compile Error Procedure Too Large
Replies
3
Views
701
rlv01
R
L
  • Question Question
Need Help Speeding Up Macro, takes too long to run...
Replies
7
Views
2K
slx
S
Z
  • Question Question
VBA Code too long.
Replies
9
Views
1K
zsgray86
Z
W
  • Question Question
VBA Help!!!
Replies
0
Views
972
wharton05
W

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top