I received an answer on a different website. Link https://stackoverflow.com/questions/...09480_61077956


To sum up the problem:

  • I had to move the FrmVendor_Initialize procedure the the UserForm code (I actuall removed the intitialize procedure all together)
    Main thing was to change the .tag that sets the address for the comboboxes
    Had to move the variables to get the info from the comboboxes into the New FrmVendor code above it
    I moved all the sub procedures connected to the userform into the Userform code (I know it's not neccessary but made things easier for my code)




Main code that needed to change:
' Display the UserForm
With New FrmVendor
    .cboxVendorName.RowSource = wb.Names(myRangeNameVendor).RefersToRange.Address(external:=True)
    .cboxVendorCode.RowSource = wb.Names(myRangeNameVendorCode).RefersToRange.Address(external:=True)
    .Show
    VendorName = .cboxVendorName.Value
    VendorCode = .cboxVendorCode.Value
End With