HI,


I HAVE A USERFORM AND ON IT I HAVE A LISTBOX, VARIOUS BUTTONS AND A
TEXTBOX. WHEN I CLICK ON A ROW IN THE LISTBOX THE FIRST DATA IN THE
ROW APPEARS IN MY TEXT BOX. I DO THIS BY COPYING THE CONTROL SOURCE OF

THE LISTBOX AND PASTING IT TO THE CONTROL SOURCE OF THE TEXTBOX. AND IT

APPEARS BEFORE YOU EYES. I THEN WISH TO DELETE THE ROW I ON, THIS IS
NO PROBLEM, BUT THE CODE CHECKS THAT I AM STILL ON THE SAME ROW BY
CHECKING THAT THE VALUES OF THE 2 CONTROL SOURCES ARE THE SAME, IF I
HAVE CLICK ON ANOTHER ROW BY MISTAKE I CANNOT DELETE THE ROW. THE
PROGHRAM WORKS FINE BUT SOMETIME AFTER I HAVE FIRST MADE A SELECTION
FROM THE LISTBOX AND CLICK ON THE COMMAND BUTTON TO MAKE THAT APPEAR IN

MY TEXTBOX MY EXCEL FREEZES, IS THERE A BETTER WAY OF DOING THIS OR WHY

IS IT DOING THIS. SHOULD I BE UPDATING THE FORM OR SOMETHING


CODE AS FOLLOW


SUB MAKELISTBOXSELECTIONAPPEARINTE=ADXBOX
'sheet1a1 controlsource for listbox codesl2 controlsource for textbox
worksheets("sheet1").Range("A1=AD").Copy
Destination:=3DSheets("CODES").R=ADange("L2")