View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Macros: Step Thru Works, Run Works, Keyboard Shortcut Locks up

If your keyboard shortcut combination includes the Shift key, remove the Shift
key from the combination.

When you open a workbook and hold down the shift key, excel knows to not run the
open macros (auto_open/workbook_open).

If your shortcut contains that shift key, then excel gets confused and thinks it
should stop.

BEEJAY wrote:

Problem as stated Above
Discovered when I recreated, from scratch,
all macros and source files, on another computer.
It locked up as before on my main computer.
By chance I tried Macro RUN, and lo an behold, it worked.
I have previously submitted a macro for the same process, but
operating differently. It also locked up after file 1.xls was
opened and would just sit there with active cell A1.

SO, how and/or why, can/does a keyboard shortcut
stop a macro from running

Sub Create_MASTER_File()
' KeyBoard ShortCut: Ctrl+Shift+ M
' ToolBar Icon: NONE
' Menu Item: NONE

Dim DestBook As Workbook
Dim mySource As Workbook
Application.ScreenUpdating = False
Application.EnableEvents = False

' Open Workbook and Save As: M2M-MASTER.XLS
Workbooks.Add
ChDir "C:\DATA"
ActiveWorkbook.SaveAs Filename:="C:\DATA\M2M-MASTER.XLS",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

' The M2M-MASTER must be (will be) the active WB when initiating macro
Set DestBook = ActiveWorkbook
Sheets(1).Activate
Set mySource = Workbooks.Open("C:\DATA\1.xls")

' 1.xls is now open and available
' Go to 1.xls, Sheet #1, Row 1, Copy
' Go to DestBook, Sheet 1, Row 1 and Insert Cut Cells

DestBook.Worksheets(1).Range("A1:IV1").Value =
mySource.Worksheets(1).Range("A1:IV1").Value

' Save only DestBook
With DestBook
.Save
End With

'Save and Close Source Book.xls
With mySource
.Save
.Close Savechanges:=True
End With

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub


--

Dave Peterson