I am sending this to corrent a line of code in my last post (with thenew txtPrice textbox).Please change the line:Private Sub lstProducts_Change()To:Private Sub lstProducts_Click()Hopefully, it will work smoothly. Sorry, for the error.