Macro not running on other computers

[DK340]

I have a macro that I created on my desktop and it works perfectly well. I sent the file to another co-worker and it fails. The macro basically opens another excel sheet, copies a few things, pastes them in the spreadsheet where the macro resides and then closes the other opened document.

The code that closes the opened document that I am using is:

Windows(Filename).Close SaveChanges:=False

The macro fails on everyone elses computer but mine when it tries to close the opened document that it is copying from. If I eliminate the above code so that the document stays open, the macro works fine. Is there something that can correct this so that it can work on other computers? Thanks.

 

[GTO]

Rather than depend upon the caption, set a reference to the other wb.

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br>    <br><SPAN style="color:#00007F">Sub</SPAN> exa()<br><SPAN style="color:#00007F">Dim</SPAN> wbOther <SPAN style="color:#00007F">As</SPAN> Workbook<br><SPAN style="color:#00007F">Dim</SPAN> wksSource <SPAN style="color:#00007F">As</SPAN> Worksheet<br><SPAN style="color:#00007F">Dim</SPAN> rngSource <SPAN style="color:#00007F">As</SPAN> Range<br><SPAN style="color:#00007F">Dim</SPAN> strPath <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> strWBName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <br>    strPath = ThisWorkbook.Path & "\"<br>    strWBName = "Test.xls"<br>    <br>    <SPAN style="color:#007F00">'// Set a reference to the other workbook upon opening.  This allows better conrol  //</SPAN><br>    <SPAN style="color:#007F00">'// over it.                                                                        //</SPAN><br>    <SPAN style="color:#00007F">Set</SPAN> wbOther = Workbooks.Open(strPath & strWBName)<br>    <SPAN style="color:#00007F">Set</SPAN> wksSource = wbOther.Worksheets("Sheet1")<br>    <SPAN style="color:#00007F">Set</SPAN> rngSource = wksSource.Range("A1:A3")<br>    <br>    rngSource.Copy ThisWorkbook.Worksheets("Sheet2").Range("A1")<br>    <br>    wbOther.Close <SPAN style="color:#00007F">False</SPAN><br>    <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Mark