Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #11  
Old 09-10-2020, 02:38 PM
rsrasc rsrasc is offline Need Help with this Macro-Partially Working Windows 10 Need Help with this Macro-Partially Working Office 2013
Competent Performer
Need Help with this Macro-Partially Working
 
Join Date: Mar 2014
Location: Germany
Posts: 148
rsrasc is on a distinguished road
Default

Hi NoSparks, now I understand what you meant with the following:

ActiveWorkbook is the last workbook opened by the OpenUpFiles macro and
ActiveSheet will be the sheet that was active at the time that file was last saved.



This part of the below code was the problem.

Code:
' Change worksheet designations as needed
Set Source = ActiveWorkbook.Worksheets("Summary")    
Set Target = ActiveWorkbook.Worksheets("Sheet1")

Here below are the changes made to the code.


Code:
' Change worksheet designations as needed
Set Source = ThisWorkbook.Worksheets("Summary")
Set Target = ThisWorkbook.Worksheets("Sheet1")
Now the macro is running all the way to the end.

Again, thanks for the suggestion.
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Need Help with this Macro-Partially Working Deleting rows with partially redundant data Noah14 Excel Programming 1 09-19-2014 11:46 PM
Need Help with this Macro-Partially Working partially delete agenda items Gerreth Outlook 3 03-13-2012 05:06 AM
Partially Obscure Video in PowerPoint KBsay PowerPoint 0 10-05-2010 12:49 PM
Problems working in a partially protected document Autumn Excel 0 02-11-2009 03:46 PM
Drawing partially off printed page DLRA Visio 0 09-26-2006 10:40 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 11:59 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft