Kabous07

New Member
Joined
May 8, 2013
Messages
34
Good day

I have posted a while ago about a VBA path error but it still persists.

I have a excel sheet where i use forms to input data in a table. I mostly use text boxes to select from other tables. On my laptop the file is working perfect, but when i copy it over to my colleagues laptop then we cant save, because it gives the path error.

What we have tried is removing the forms and importing them to the file individually and then it seems to work. But once the file is copped again and pasted in another place, then it give the error again. Do anyone understand why it does this.

With this line:"Sheets("INTERNAL PRICING").Range("C9").Value = ListBox1.Text", am i doing it wrong(in bold
)or should i do it like this? Sheets("INTERNAL PRICING").Range("C9").Text = ListBox1.Text

The coding is as follows:

Code:
Private Sub ANKi_Discount_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ANKi_Discount.Value
End Sub


Private Sub DES_AIR_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = DES_AIR.Text
End Sub


Private Sub ListBox1_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox1.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox1.Text
End Sub


Private Sub ListBox12_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox12.Value
End Sub


Private Sub ListBox13_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox13.Value
End Sub


Private Sub ListBox14_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox14.Value
End Sub


Private Sub ListBox15_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox15.Value
End Sub


Private Sub ListBox16_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox16.Value
End Sub


Private Sub ListBox17_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox17.Value
End Sub


Private Sub ListBox18_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox18.Value
End Sub


Private Sub ListBox19_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox19.Value
End Sub


Private Sub ListBox2_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox2.Value
End Sub


Private Sub ListBox20_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox20.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox20.Text
End Sub


Private Sub ListBox21_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox21.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox21.Text
End Sub


Private Sub ListBox3_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox3.Value
End Sub


Private Sub ANKi_Click()


End Sub


Private Sub ListBox100_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox100.Value
End Sub


Private Sub ListBox101_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox101.Value
End Sub


Private Sub ListBox102_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox102.Value
End Sub


Private Sub ListBox103_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox103.Value
End Sub


Private Sub ListBox104_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox104.Text
End Sub


Private Sub ListBox105_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox105.Text
End Sub


Private Sub ListBox106_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox106.Text
End Sub


Private Sub ListBox107_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox107.Value
End Sub


Private Sub ListBox108_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox108.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox108.Text
End Sub


Private Sub ListBox109_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox109.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox109.Text
End Sub


Private Sub ListBox110_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox110.Value
End Sub


Private Sub ListBox111_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox111.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox111.Text
End Sub


Private Sub ListBox112_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox112.Value
End Sub


Private Sub ListBox113_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox113.Value
End Sub


Private Sub ListBox114_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox114.Value
End Sub


Private Sub ListBox115_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox115.Value
End Sub


Private Sub ListBox116_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox116.Value
End Sub


Private Sub ListBox117_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox117.Value
End Sub


Private Sub ListBox118_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox118.Value
End Sub


Private Sub ListBox119_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox119.Text
End Sub


Private Sub ListBox120_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox120.Text
End Sub


Private Sub ListBox121_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox121.Text
End Sub


Private Sub ListBox122_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox122.Value
End Sub


Private Sub ListBox123_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox123.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox123.Text
End Sub


Private Sub ListBox124_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox124.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox124.Text
End Sub


Private Sub ListBox125_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox125.Value
End Sub


Private Sub ListBox126_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox126.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox126.Text
End Sub


Private Sub ListBox127_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox127.Value
End Sub


Private Sub ListBox128_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox128.Value
End Sub


Private Sub ListBox129_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox129.Value
End Sub


Private Sub ListBox130_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox130.Value
End Sub


Private Sub ListBox131_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox131.Value
End Sub


Private Sub ListBox132_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox132.Value
End Sub


Private Sub ListBox133_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox133.Value
End Sub


Private Sub ListBox134_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox134.Text
End Sub


Private Sub ListBox135_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox135.Text
End Sub


Private Sub ListBox136_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox136.Text
End Sub


Private Sub ListBox137_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox137.Value
End Sub


Private Sub ListBox138_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox138.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox138.Text
End Sub


Private Sub ListBox139_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox139.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox139.Text
End Sub


Private Sub ListBox140_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox140.Value
End Sub


Private Sub ListBox141_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox141.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox141.Text
End Sub


Private Sub ListBox142_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox142.Value
End Sub


Private Sub ListBox143_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox143.Value
End Sub


Private Sub ListBox144_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox144.Value
End Sub


Private Sub ListBox145_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox145.Value
End Sub


Private Sub ListBox146_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox146.Value
End Sub


Private Sub ListBox147_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox147.Value
End Sub


Private Sub ListBox148_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox148.Value
End Sub


Private Sub ListBox149_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox149.Text
End Sub


Private Sub ListBox150_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox150.Text
End Sub


Private Sub ListBox151_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox151.Text
End Sub


Private Sub ListBox152_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox152.Value
End Sub


Private Sub ListBox153_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox153.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox153.Text
End Sub


Private Sub ListBox154_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox154.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox154.Text
End Sub


Private Sub ListBox155_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox155.Value
End Sub


Private Sub ListBox156_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox156.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox156.Text
End Sub


Private Sub ListBox157_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox157.Value
End Sub


Private Sub ListBox158_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox158.Value
End Sub


Private Sub ListBox159_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox159.Value
End Sub


Private Sub ListBox160_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox160.Value
End Sub


Private Sub ListBox161_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox161.Value
End Sub


Private Sub ListBox162_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox162.Value
End Sub


Private Sub ListBox163_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox163.Value
End Sub


Private Sub ListBox164_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox164.Text
End Sub


Private Sub ListBox165_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox165.Text
End Sub


Private Sub ListBox166_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox166.Text
End Sub


Private Sub ListBox167_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox167.Value
End Sub


Private Sub ListBox168_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox168.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox168.Text
End Sub


Private Sub ListBox169_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox169.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox169.Text
End Sub


Private Sub ListBox170_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox170.Value
End Sub


Private Sub ListBox171_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox171.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox171.Text
End Sub


Private Sub ListBox172_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox172.Value
End Sub


Private Sub ListBox173_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox173.Value
End Sub


Private Sub ListBox174_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox174.Value
End Sub


Private Sub ListBox175_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox175.Value
End Sub


Private Sub ListBox176_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox176.Value
End Sub


Private Sub ListBox177_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox177.Value
End Sub


Private Sub ListBox178_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox178.Value
End Sub


Private Sub ListBox179_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox179.Text
End Sub


Private Sub ListBox180_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox80.Text
End Sub


Private Sub ListBox181_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox181.Text
End Sub


Private Sub ListBox182_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox182.Value
End Sub


Private Sub ListBox183_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox183.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox183.Text
End Sub


Private Sub ListBox184_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox184.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox184.Text
End Sub


Private Sub ListBox185_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox185.Value
End Sub


Private Sub ListBox186_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox186.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox186.Text
End Sub


Private Sub ListBox187_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox187.Value
End Sub


Private Sub ListBox188_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox188.Value
End Sub


Private Sub ListBox189_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox189.Value
End Sub


Private Sub ListBox190_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox190.Value
End Sub


Private Sub ListBox191_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox191.Value
End Sub


Private Sub ListBox192_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox192.Value
End Sub


Private Sub ListBox193_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox193.Value
End Sub


Private Sub ListBox194_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox194.Text
End Sub


Private Sub ListBox195_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox195.Text
End Sub


Private Sub ListBox196_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox196.Text
End Sub


Private Sub ListBox197_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox197.Value
End Sub


Private Sub ListBox198_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox198.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox198.Text
End Sub


Private Sub ListBox199_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox199.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox199.Text
End Sub


Private Sub ListBox200_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox200.Value
End Sub


Private Sub ListBox201_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox201.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox201.Text
End Sub


Private Sub ListBox202_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox202.Value
End Sub


Private Sub ListBox203_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox203.Value
End Sub


Private Sub ListBox204_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox204.Value
End Sub


Private Sub ListBox205_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox205.Value
End Sub


Private Sub ListBox206_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox206.Value
End Sub


Private Sub ListBox207_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox207.Value
End Sub


Private Sub ListBox208_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox208.Value
End Sub


Private Sub ListBox209_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox209.Text
End Sub


Private Sub ListBox210_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox210.Text
End Sub


Private Sub ListBox211_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox211.Text
End Sub


Private Sub ListBox212_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox212.Value
End Sub


Private Sub ListBox213_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox213.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox213.Text
End Sub


Private Sub ListBox214_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox214.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox214.Text
End Sub


Private Sub ListBox215_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox215.Value
End Sub


Private Sub ListBox216_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox216.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox216.Text
End Sub


Private Sub ListBox217_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox217.Value
End Sub


Private Sub ListBox218_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox218.Value
End Sub


Private Sub ListBox219_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox219.Value
End Sub


Private Sub ListBox22_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox22.Value
End Sub


Private Sub ListBox220_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox220.Value
End Sub


Private Sub ListBox221_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox221.Value
End Sub


Private Sub ListBox222_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox222.Value
End Sub


Private Sub ListBox223_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox223.Value
End Sub


Private Sub ListBox224_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox224.Text
End Sub


Private Sub ListBox225_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox225.Text
End Sub


Private Sub ListBox226_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox226.Text
End Sub


Private Sub ListBox227_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox227.Value
End Sub


Private Sub ListBox228_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox228.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox228.Text
End Sub


Private Sub ListBox229_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox229.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox229.Text
End Sub


Private Sub ListBox23_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox23.Value
End Sub


Private Sub ListBox230_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox230.Value
End Sub


Private Sub ListBox231_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox231.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox231.Text
End Sub


Private Sub ListBox232_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox232.Value
End Sub


Private Sub ListBox233_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox233.Value
End Sub


Private Sub ListBox234_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox234.Value
End Sub


Private Sub ListBox235_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox235.Value
End Sub


Private Sub ListBox236_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox236.Value
End Sub


Private Sub ListBox237_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox237.Value
End Sub


Private Sub ListBox238_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox238.Value
End Sub


Private Sub ListBox239_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox239.Text
End Sub


Private Sub ListBox24_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox24.Value
End Sub


Private Sub ListBox240_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox240.Text
End Sub


Private Sub ListBox241_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox241.Text
End Sub


Private Sub ListBox242_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox242.Value
End Sub


Private Sub ListBox243_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox243.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox243.Text
End Sub


Private Sub ListBox244_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox244.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox244.Text
End Sub


Private Sub ListBox245_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox245.Value
End Sub


Private Sub ListBox246_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox246.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox246.Text
End Sub


Private Sub ListBox247_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox247.Value
End Sub


Private Sub ListBox248_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox248.Value
End Sub


Private Sub ListBox249_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox249.Value
End Sub


Private Sub ListBox25_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox25.Value
End Sub


Private Sub ListBox250_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox250.Value
End Sub


Private Sub ListBox251_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox251.Value
End Sub


Private Sub ListBox252_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox252.Value
End Sub


Private Sub ListBox253_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox253.Value
End Sub


Private Sub ListBox254_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox254.Text
End Sub


Private Sub ListBox255_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox255.Text
End Sub


Private Sub ListBox256_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox256.Text
End Sub


Private Sub ListBox257_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox257.Value
End Sub


Private Sub ListBox258_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox258.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox258.Text
End Sub


Private Sub ListBox259_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox259.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox259.Text
End Sub


Private Sub ListBox26_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox26.Value
End Sub


Private Sub ListBox260_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox260.Value
End Sub


Private Sub ListBox261_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox261.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox261.Text
End Sub


Private Sub ListBox262_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox262.Value
End Sub


Private Sub ListBox263_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox263.Value
End Sub


Private Sub ListBox264_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox264.Value
End Sub


Private Sub ListBox265_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox265.Value
End Sub


Private Sub ListBox266_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox266.Value
End Sub


Private Sub ListBox267_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox267.Value
End Sub


Private Sub ListBox268_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox268.Value
End Sub


Private Sub ListBox269_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox269.Text
End Sub


Private Sub ListBox27_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox27.Value
End Sub


Private Sub ListBox270_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox270.Text
End Sub


Private Sub ListBox271_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox271.Text
End Sub


Private Sub ListBox272_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox272.Value
End Sub


Private Sub ListBox273_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox273.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox273.Text
End Sub


Private Sub ListBox274_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox274.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox274.Text
End Sub


Private Sub ListBox275_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox275.Value
End Sub


Private Sub ListBox276_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox276.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox276.Text
End Sub


Private Sub ListBox277_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox277.Value
End Sub


Private Sub ListBox278_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox278.Value
End Sub


Private Sub ListBox279_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox279.Value
End Sub


Private Sub ListBox28_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox28.Value
End Sub


Private Sub ListBox280_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox280.Value
End Sub


Private Sub ListBox281_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox281.Value
End Sub


Private Sub ListBox282_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox282.Value
End Sub


Private Sub ListBox283_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox283.Value
End Sub


Private Sub ListBox284_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox284.Text
End Sub


Private Sub ListBox285_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox285.Text
End Sub


Private Sub ListBox286_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox286.Text
End Sub


Private Sub ListBox287_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox287.Value
End Sub


Private Sub ListBox288_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox288.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox288.Text
End Sub


Private Sub ListBox289_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox289.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox289.Text
End Sub


Private Sub ListBox290_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox290.Value
End Sub


Private Sub ListBox291_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox291.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox291.Text
End Sub


Private Sub ListBox292_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox292.Value
End Sub


Private Sub ListBox293_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox293.Value
End Sub


Private Sub ListBox294_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox294.Value
End Sub


Private Sub ListBox295_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox295.Value
End Sub


Private Sub ListBox296_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox296.Value
End Sub


Private Sub ListBox297_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox297.Value
End Sub


Private Sub ListBox298_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox298.Value
End Sub


Private Sub ListBox299_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox299.Text
End Sub


Private Sub ListBox30_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox30.Text
End Sub


Private Sub ListBox300_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox300.Text
End Sub


Private Sub ListBox301_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox301.Text
End Sub


Private Sub ListBox302_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox302.Value
End Sub


Private Sub ListBox303_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox303.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox303.Text
End Sub


Private Sub ListBox304_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox304.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox304.Text
End Sub


Private Sub ListBox305_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox305.Value
End Sub


Private Sub ListBox306_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox306.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox306.Text
End Sub


Private Sub ListBox307_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox307.Value
End Sub


Private Sub ListBox308_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox308.Value
End Sub


Private Sub ListBox309_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox309.Value
End Sub


Private Sub ListBox31_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox31.Text
End Sub


Private Sub ListBox310_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox310.Value
End Sub


Private Sub ListBox311_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox311.Value
End Sub


Private Sub ListBox312_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox312.Value
End Sub


Private Sub ListBox313_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox313.Value
End Sub


Private Sub ListBox314_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox314.Text
End Sub


Private Sub ListBox315_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox315.Text
End Sub


Private Sub ListBox316_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox316.Text
End Sub


Private Sub ListBox317_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox317.Value
End Sub


Private Sub ListBox318_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox318.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox318.Text
End Sub


Private Sub ListBox319_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox319.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox319.Text
End Sub


Private Sub ListBox32_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox32.Value
End Sub


Private Sub ListBox320_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox320.Value
End Sub


Private Sub ListBox321_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox321.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox321.Text
End Sub


Private Sub ListBox322_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox322.Value
End Sub


Private Sub ListBox323_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox323.Value
End Sub


Private Sub ListBox324_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox324.Value
End Sub


Private Sub ListBox325_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox325.Value
End Sub


Private Sub ListBox326_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox326.Value
End Sub


Private Sub ListBox327_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox327.Value
End Sub


Private Sub ListBox328_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox328.Value
End Sub


Private Sub ListBox329_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox329.Text
End Sub


Private Sub ListBox33_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox33.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox33.Text
End Sub


Private Sub ListBox330_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox330.Text
End Sub


Private Sub ListBox331_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox331.Text
End Sub


Private Sub ListBox332_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox332.Value
End Sub


Private Sub ListBox333_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox333.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox333.Text
End Sub


Private Sub ListBox334_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox334.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox334.Text
End Sub


Private Sub ListBox335_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox335.Value
End Sub


Private Sub ListBox336_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox336.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox336.Text
End Sub


Private Sub ListBox337_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox337.Value
End Sub


Private Sub ListBox338_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox338.Value
End Sub


Private Sub ListBox339_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox339.Value
End Sub


Private Sub ListBox34_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox34.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox34.Text
End Sub


Private Sub ListBox340_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox340.Value
End Sub


Private Sub ListBox341_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox341.Value
End Sub


Private Sub ListBox342_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox342.Value
End Sub


Private Sub ListBox343_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox343.Value
End Sub


Private Sub ListBox344_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox344.Text
End Sub


Private Sub ListBox345_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox345.Text
End Sub


Private Sub ListBox346_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox346.Text
End Sub


Private Sub ListBox347_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox347.Value
End Sub


Private Sub ListBox348_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox348.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox348.Text
End Sub


Private Sub ListBox349_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox349.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox349.Text
End Sub


Private Sub ListBox35_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox35.Value
End Sub


Private Sub ListBox350_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox350.Value
End Sub


Private Sub ListBox351_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox351.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox351.Text
End Sub


Private Sub ListBox352_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox352.Value
End Sub


Private Sub ListBox353_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox353.Value
End Sub


Private Sub ListBox354_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox354.Value
End Sub


Private Sub ListBox355_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox355.Value
End Sub


Private Sub ListBox356_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox356.Value
End Sub


Private Sub ListBox357_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox357.Value
End Sub


Private Sub ListBox358_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox358.Value
End Sub


Private Sub ListBox359_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox359.Text
End Sub


Private Sub ListBox36_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox36.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox36.Text
End Sub


Private Sub ListBox4_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox4.Value
End Sub


Private Sub ListBox360_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox360.Text
End Sub


Private Sub ListBox361_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox361.Text
End Sub


Private Sub ListBox362_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox362.Value
End Sub


Private Sub ListBox363_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox363.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox363.Text
End Sub


Private Sub ListBox364_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox364.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox364.Text
End Sub


Private Sub ListBox37_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox37.Value
End Sub


Private Sub ListBox38_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox38.Value
End Sub


Private Sub ListBox39_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox39.Value
End Sub


Private Sub ListBox40_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox40.Value
End Sub


Private Sub ListBox41_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox41.Value
End Sub


Private Sub ListBox42_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox42.Value
End Sub


Private Sub ListBox43_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox43.Value
End Sub


Private Sub ListBox44_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox44.Text
End Sub


Private Sub ListBox45_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox45.Text
End Sub


Private Sub ListBox46_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox46.Text
End Sub


Private Sub ListBox47_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox47.Value
End Sub


Private Sub ListBox48_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox48.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox48.Text
End Sub


Private Sub ListBox49_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox49.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox49.Text
End Sub


Private Sub ListBox50_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox50.Value
End Sub


Private Sub ListBox51_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox51.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox51.Text
End Sub


Private Sub ListBox52_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox52.Value
End Sub


Private Sub ListBox53_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox53.Value
End Sub


Private Sub ListBox54_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox54.Value
End Sub


Private Sub ListBox55_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox55.Value
End Sub


Private Sub ListBox56_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox56.Value
End Sub


Private Sub ListBox57_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox57.Value
End Sub


Private Sub ListBox58_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox58.Value
End Sub


Private Sub ListBox59_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox59.Text
End Sub


Private Sub ListBox60_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox60.Text
End Sub


Private Sub ListBox61_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox61.Text
End Sub


Private Sub ListBox62_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox62.Value
End Sub


Private Sub ListBox63_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox63.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox63.Text
End Sub


Private Sub ListBox64_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox64.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox64.Text
End Sub


Private Sub ListBox65_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox65.Value
End Sub


Private Sub ListBox66_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox66.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox66.Text
End Sub


Private Sub ListBox67_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox67.Value
End Sub


Private Sub ListBox68_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox68.Value
End Sub


Private Sub ListBox69_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox69.Value
End Sub


Private Sub ListBox70_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox70.Value
End Sub


Private Sub ListBox71_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox71.Value
End Sub


Private Sub ListBox72_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox72.Value
End Sub


Private Sub ListBox73_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox73.Value
End Sub


Private Sub ListBox74_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox74.Text
End Sub


Private Sub ListBox75_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox75.Text
End Sub


Private Sub ListBox76_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox76.Text
End Sub


Private Sub ListBox77_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox77.Value
End Sub


Private Sub ListBox78_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox78.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox78.Text
End Sub


Private Sub ListBox79_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox79.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox79.Text
End Sub


Private Sub ListBox80_Click()
Sheets("INTERNAL PRICING").Range("G9").Value = ListBox80.Value
End Sub


Private Sub ListBox81_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox81.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox81.Text
End Sub


Private Sub ListBox82_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox82.Value
End Sub


Private Sub ListBox83_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox83.Value
End Sub


Private Sub ListBox84_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox84.Value
End Sub


Private Sub ListBox85_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox85.Value
End Sub


Private Sub ListBox86_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox86.Value
End Sub


Private Sub ListBox87_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox87.Value
End Sub


Private Sub ListBox88_Click()
Sheets("INTERNAL PRICING").Range("N9").Value = ListBox88.Value
End Sub


Private Sub ListBox89_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox89.Text
End Sub


Private Sub ListBox90_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox90.Text
End Sub


Private Sub ListBox91_Click()
Sheets("INTERNAL PRICING").Range("D9").Value = ListBox91.Text
End Sub


Private Sub ListBox92_Click()
Sheets("INTERNAL PRICING").Range("O9").Value = ListBox92.Value
End Sub


Private Sub ListBox93_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox93.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox93.Text
End Sub


Private Sub ListBox94_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox94.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox94.Text
End Sub


Private Sub ListBox95_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox95.Value
End Sub


Private Sub ListBox96_Click()
Sheets("INTERNAL PRICING").Range("E9").Value = ListBox96.Value
Sheets("INTERNAL PRICING").Range("C9").Value = ListBox96.Text
End Sub


Private Sub ListBox97_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox97.Value
End Sub


Private Sub ListBox98_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox98.Value
End Sub


Private Sub ListBox99_Click()
Sheets("INTERNAL PRICING").Range("J9").Value = ListBox99.Value
End Sub
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
Code:
UserFormName.ListBox1.List (UserFormName.ListBox1.ListIndex)
U need to use the List property to produce the selected listbox item text. The above code provides the text/value of the selected item in the listbox. HTH. Dave
 
Upvote 0
Code:
UserFormName.ListBox1.List (UserFormName.ListBox1.ListIndex)
U need to use the List property to produce the selected listbox item text. The above code provides the text/value of the selected item in the listbox. HTH. Dave

I'm not sure how to use this but ill read up on it and see if i can make the changes. If i have to make the changes, do i have to do it one by one or is there a faster way, like find/replace.
 
Upvote 0
To give some feedback. We played around with the file attributes when you go to the properties. It seems to work in a way when we set it to "read-only" and then copy it to another PC. My colleague can then save the file with another name and then it seems to work. I was wondering if there would be a way around the "read-only" method. We preferably would like to copy and paste the file anywhere and immediately start to work on it(without using read-only).

For the workbook, please refer to dropbox link: https://www.dropbox.com/s/dchmpokr7s5biwc/Quote KC (R18) -Forum edit.xlsm?dl=0
 
Upvote 0
Firstly my apologies Kabous07 the solution I posted wasn't helpful as I believed that the use of "List" was required to retrieve listbox info... I was wrong or maybe that's only for multiselect listboxes?. Secondly, thank you for addressing the forum rules in both forums. Now for some help (hopefully)...
"With this line:"Sheets("INTERNAL PRICING").Range("C9").Value = ListBox1.Text", am i doing it wrong(in bold)or should i do it like this?
Sheets("INTERNAL PRICING").Range("C9").Text = ListBox1.Text" I think the range.text will error? It depends what type of data U want in C9. U can force any data (numeric or text) to text with...
Code:
Sheets("INTERNAL PRICING").Range("C9").Value = Cstr( ListBox1.Value)
You can also force numeric text to values with
Code:
Sheets("INTERNAL PRICING").Range("C9").Value = Cint( ListBox1.Value)
which will error if the data cannot be forced to values (ie. if apples is the listbox data).
As for your actual concern re. copying the file to another pc, U didn't mention how U do this. To begin with, which may be irrelevant in this case, XL can become confused if U don't specify clearly ie. Listbox1.Text should be UserformName.Listbox1.Text. To resolve your copy file issues, I will post a link to use VBA Copyfile which should resolve these. Dave
edit: Here's the link...
https://www.mrexcel.com/forum/excel...but-permission-denied.html?highlight=copyfile
 
Last edited:
Upvote 0
Here's the code adaptation to copy your wb to the same directory address with the name "Copy" in front of the original name. HTH. Dave
Code:
Sub copythatfile()
Dim xlobj As Object
Set xlobj = CreateObject("Scripting.FileSystemObject")
'object.copyfile,source,destination,file overright(True is default)
xlobj.CopyFile ThisWorkbook.FullName, ThisWorkbook.Path & "\Copy" & ThisWorkbook.Name, True
Set xlobj = Nothing
End Sub
I'm pretty sure U can also use SaveAs and address the read only thing
 
Upvote 0

Forum statistics

Threads
1,213,546
Messages
6,114,256
Members
448,557
Latest member
richa mishra

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