Hello,
I have this macro in a worksheet that runs as expected:
Sub COPY_CASES_TO_ROWS()
' COPY_CASES_TO_ROWS Macro
'
Dim X As Long
For X = 1 To Range("AE2")
'For X = 1 To 1 Step 1
Sheets("Case_COL").Select
'Calculate
Range("D3:ALO3").Select
Selection.Copy
Range("D2").End(xlDown).Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").End(xlDown).Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
Next X
End Sub
...so I created a new macro name in another workbook and copied the above macro to that workbook and modified the worksheet and cell names & locations for the new workbook:
Sub BSM_COPY_ITERATIONS_01()
'
' BSM_COPY_ITERATIONS_01 Macro
' Copy BSM iterations to charting range
'
Sheets("BSM").Select
Dim X As Long
For X = 1 To Range("B508")
'For X = 1 To 1 Step 1
Sheets("BSM").Select
Range("C2:U2").Select
Selection.Copy
Range("C510").End(xlDown).Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C510").End(xlDown).Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
Next X
End Sub
...but the new workbook macro hangs at the above highlighted line when I run the debugger...
I've tried to determine what I've got wrong with the new macro but haven't been able to figure it out.
Any help is appreciated, thank you.
I have this macro in a worksheet that runs as expected:
Sub COPY_CASES_TO_ROWS()
' COPY_CASES_TO_ROWS Macro
'
Dim X As Long
For X = 1 To Range("AE2")
'For X = 1 To 1 Step 1
Sheets("Case_COL").Select
'Calculate
Range("D3:ALO3").Select
Selection.Copy
Range("D2").End(xlDown).Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").End(xlDown).Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
Next X
End Sub
...so I created a new macro name in another workbook and copied the above macro to that workbook and modified the worksheet and cell names & locations for the new workbook:
Sub BSM_COPY_ITERATIONS_01()
'
' BSM_COPY_ITERATIONS_01 Macro
' Copy BSM iterations to charting range
'
Sheets("BSM").Select
Dim X As Long
For X = 1 To Range("B508")
'For X = 1 To 1 Step 1
Sheets("BSM").Select
Range("C2:U2").Select
Selection.Copy
Range("C510").End(xlDown).Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C510").End(xlDown).Offset(1, 0).Range("A1").Select
Application.CutCopyMode = False
Next X
End Sub
...but the new workbook macro hangs at the above highlighted line when I run the debugger...
I've tried to determine what I've got wrong with the new macro but haven't been able to figure it out.
Any help is appreciated, thank you.