ActiveWorkbook.close is closing all workbooks

Hey there johnvn

Welcome to the forum...
Are you able to post your code snippet and a sample file upload...

Edited...
Why not set the wb in beginning of code and then use...

Please Login or Register  to view this content.

Hi Sintek - thanks for the fast response.. here is the piece of code that closes the macro. As I mentioned, this piece of code has been working fine for some time. I presume that a change I made to some other code must have broken this. I might note that I have added a number of Shhet1.select, Sheets("Summary").select to try and force the correct sheet

'------------------ Clean up & select Summary -------------------------
Application.DisplayAlerts = True

Sheets("Summary").Select
Range("M13").Select

Dim chk As Long, chk2 As Long

chk = Range("L12")
chk2 = Range("J12")


wbCopyTo.Activate

Sheet1.Select
Range("M10").Value = chk
Range("M11").Value = chk2

Range("A3").Select
Sheet1.Select
Sheets("Summary").Select
Application.CutCopyMode = False

If Range("L12") = Range("M10") And Range("J12") = Range("M11") Then
wbCopyFrom.Close False
End If


Application.Calculation = xlCalculationAutomatic ' Close file that was opened
Application.ScreenUpdating = True

Application.CommandBars.FindControl(ID:=549).Execute ' Turn Picture Snap to Grid on

MsgBox "Import Complete!"

johnvn...

Your post does not comply with rule #3.

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window.

Edit your post and highlight the part of code and add code tags #...
With that been said...please explain to us in detail what you are trying to achieve...

My apologies re: the code

What is happening here is that I am importing data from a number of workbooks that are submitted to me on a daily basis. In the master workbook (wcCopyTo), I check 2 cells (L12 & J12) against two values (M10 & M11), and if they match then I close the workbook that I am importing from(wbCopyFrom)
So the if then section checks that these are equal and if the values are correct it close the wbCopyFrom. If the values are not equal the the wbCopyFrom stays open to enable me to find the problem.

The posted code (without tags ) is at the end of the import code.

As you can see - the macro completes and shows the MsgBox but then wants to close the workbook. After the MsgBox is my End Sub. So no more code.

I forgot to mention - if I comment out the wbFrom close statement the the workbook does not want to close


end_imp.png

next_after.png