Closing multiple workbooks?

Here is my issue, I have a macro that parses text out of a imported file. To
do this I have to Open up one workbook and save it as another (temp.xls)
workbook. The temp file closes or at least appears to however I don't
believe the original workbook closes because I still have a excel.exe in the
Task Manager. Is there any way to rectify this issue, or any code
adjustments that I could make?


Dim wb As Workbook, BeginRow As Long, EndRow As Long
Dim myFile As String
Dim myRange As Range
Workbooks.Open "M:\Forecasting DB\Cin.xls"
BeginRow = [A:A].Find("EJ", after:=[A1]).Row
EndRow = [A:A].Find("EJ", [A65000], , , xlColumns, xlPrevious).Row
ActiveWorkbook.Names.Add "myRange1", Range("A" & BeginRow & "" &
EndRow).Address
Range("A" & BeginRow & "" & EndRow).Copy
Workbooks.Add 1
Set wb = ActiveWorkbook
ActiveSheet.Paste
[A65000].End(xlUp).Offset(1).Select
Workbooks("CIN.xls").Activate
BeginRow = [A:A].Find("EM", after:=[A1]).Row
EndRow = [A:A].Find("EM", [A65000], , , xlColumns, xlPrevious).Row
ActiveWorkbook.Names.Add "myRange2", Range("A" & BeginRow & "" &
EndRow).Address
Range("A" & BeginRow & "" & EndRow).Copy
wb.Activate
ActiveSheet.Paste
ActiveWorkbook.SaveAs "M:\ForeCasting DB\temp.xls"
ActiveWorkbook.Close