From Active Worksheet Trying to Open another file, cut, paste to original file; works in debug but shortcut fails

kmblush

New Member
Joined
Oct 25, 2013
Messages
1
Hi - I'm old to programming but very new to VBA. I'm using Excel 2010 and have a pretty functional routine. Where I'm running into trouble with opening a 2nd file, copying a column, pasting the column to the original file (from which the code is being executed) and then closing the 2nd file. Everything works just fine in Debug or if I access Macros from the Developer toolbar/ribbon and then select run. The process hangs if I use the defined shortcut. And, by hanging, I mean the 2nd file opens and then all processing stops.

The code snippet where the "stoppage" occurs is:

BlanksName = "c:\users\kathy\documents\Shipping Manifests\AllBlanks-" & MarketName & ".xls"
Set BlanksFile = Workbooks.Open(BlanksName)
BlanksFile.Sheets("Worksheet").Columns("A:A").Copy
BlanksFile.Close
WsSrc.Columns("J:J").Insert shift:=xlToRight

All variables have been previously defined. Any suggestions?

Thanks very much.
 

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

Forum statistics

Threads
1,215,641
Messages
6,125,979
Members
449,276
Latest member
surendra75

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top