Consolidate Multiple work sheets and save into a specified file

Hi am a new to this forum and have a question on a VBA code. I must inform you all that I am also new, but I am needing to consolidate all workbooks in a file to one spreadsheet. I did refer to http://www.excelfox.com/forum/f13/co...-file-vba-569/ and removed the prompt so that the directory would be found without the message box. For some reason when I run the macro the files are consolidated into my PERSONAL.XSLB file rather than to another active work book

1. How do I avoid this? What part of the code to I need to change?
2. How could I get this to be saved into a file template that I have already created, but not complete a "save-as" which I have tried, but this ends up closing my personal macro work book and then I cannot run any other macros without reopening the macro file.

I hope this makes sense.

Just change

Code:

---

Set wbkActive = ThisWorkbook

---

to

Code:

---

Set wbkActive = ActiveWorkbook

---