Popluate Labels In Userform From Spreadsheet

I have a userform that allows the user to choose an order template from a combobox. I also have a ton of labels in the userform to return values based on the template chosen. then they can approve the template or choose another and the template chosen will be returned to the spreadsheet.

to see what they look like:
link to the userform (originally they were textboxes, but i changed to labels so the user cant change the values):
http://www.ppbcsingles.org/BRINKS/template-userform.jpg
link to the table:
http://www.ppbcsingles.org/BRINKS/template-values.jpg

to return the values to the labels based on the combobox... this is what i came up with, but it says that my sub or function isnt defined...and it highlights the error in "Private Sub ComboBox1_Change()"

Private Sub ComboBox1_Change()
Dim x As Integer
x = OrderTemplateSettings.ComboBox1.Text
Workbooks("newlocationsetup.xls").Worksheets("Templates ").Activate
'CURRENCY
OrderTemplateSettings.Label82.Value = HLookup(x, Range("A2:AE65").Value, 1, False) 'ones
OrderTemplateSettings.Label83.Value = HLookup(x, Range("A2:AE65").Value, 2, False) 'twos
OrderTemplateSettings.Label84.Value = HLookup(x, Range("A2:AE65").Value, 3, False) 'fives
OrderTemplateSettings.Label85.Value = HLookup(x, Range("A2:AE65").Value, 4, False) 'tens
OrderTemplateSettings.Label86.Value = HLookup(x, Range("A2:AE65").Value, 5, False) 'twenties
OrderTemplateSettings.Label87.Value = HLookup(x, Range("A2:AE65").Value, 6, False) 'fifties
OrderTemplateSettings.Label88.Value = HLookup(x, Range("A2:AE65").Value, 7, False) 'hundreds