Slow Macro ? - Need Assistance in Optimizing Code

I posted a thread a few weeks ago and received great advice, so I am back! To give you some background information I will explain the instructions:

The worksheet contains information that is seperated by section headings. I have created a form that collects information and inserts into the appropriate section. A listbox value (Heading Name) determines the section placement of the information. I have created a loop that searches for these section headings. It then inserts a new row with the new information. Several formatting changes also take place during the process.

The code works correctly except for the 10 second pause after you click the submit button. The 10 second delay eliminates the benefit of the form/macro. I am new to VBA coding so don't be alarmed if the code is poorly written.

Thanks a lot in advance!

Please Login or Register  to view this content.

Don't slect or activate. Don't Looop unless necessary, in your code use .Find to find the text

You haven't declared variables.

I would rather see what the code is supposed to do than work through all this. Can you attach the workbook

I did say avoid selecting and what is the expected result?

Your code is looking for xSubmit, is this a variable?

Sorry, I changed the variable xSubmit to tHeading and forgot to reflect the change in the post. I also eliminated the select command. It is still faultering on the .find command.

The expected result can be found in the workbook. That is with the very slow code that includes selecting and loops. I removed some of the code in my last post to focus on the .find command for present discussion.

Thanks Roy!

sEE IF THIS WORKS

Please Login or Register  to view this content.