Excel Macro to import contacts and place them on a particular sheet

Hi All

I have been searching for a few hours and I have come up the code below. It imports contact information from Outlook contacts in a contact folder called Private Contacts. The below code has been copied and modified from this forum.

As it stands the macro creates a new workbook and places the data on that. What I need it to do is create a new worksheet with the name of private compare on the active workbook and then place the data on that worksheet.

Could somebody please let me know what I need to change in VBA code?

Thanks in advance for your assistance.

Please Login or Register  to view this content.

Please use code tags when posting code.

When you add a worksheet with code, it becomes the current sheet, so the code for adding/naming a worksheet is

Please Login or Register  to view this content.

You don't need the first line, you're not creating a workbook. The second line becomes:

Please Login or Register  to view this content.

Regards, TMS

Note: where you are referring to objExcel, it should be objWorksheet.

And, to take a step back, if you are creating a new sheet in the active workbook, you don't need a new instance of Excel.


Regards, TMS

You're welcome.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.