My macro just stops execution without any error message as if it encountered
an END statement. It does this at the line ActiveSheet.Name =
"Paste_Buffer"

On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Paste_Buffer").Delete
Application.DisplayAlerts = True
On Error GoTo 0
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Paste_Buffer"

Set RSMEU_BufferSht = ActiveSheet
Set RSMEU_ToRange =
Workbooks(RSMEU_InUse).Sheets("Paste_Buffer").Rang e("A5")

Sometimes it works fine. Other times it refuses to work.

Any ideas?

Comment out the Error statments and fix the errors by testing for them, not
jumping around these errors.

"Richard J. Snee" wrote:

My macro just stops execution without any error message as if it encountered
an END statement. It does this at the line ActiveSheet.Name =
"Paste_Buffer"

On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Paste_Buffer").Delete
Application.DisplayAlerts = True
On Error GoTo 0
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Paste_Buffer"

Set RSMEU_BufferSht = ActiveSheet
Set RSMEU_ToRange =
Workbooks(RSMEU_InUse).Sheets("Paste_Buffer").Rang e("A5")

Sometimes it works fine. Other times it refuses to work.

Any ideas?

Perhaps I do not understand what you want me to do but...

I trace the code in break mode a step at a time. Execution just stops. No
errors of any kind. It does not go into break mode. If I stop (via a break)
before the problem line and use the Debug menu to skip over it, the next line
works but what the skipped line does is essential to my macro so if I comment
it out my macro does not do what I intend.


"Joel" wrote:

Comment out the Error statments and fix the errors by testing for them, not
jumping around these errors.

"Richard J. Snee" wrote:

My macro just stops execution without any error message as if it encountered
an END statement. It does this at the line ActiveSheet.Name =
"Paste_Buffer"

On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Paste_Buffer").Delete
Application.DisplayAlerts = True
On Error GoTo 0
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Paste_Buffer"

Set RSMEU_BufferSht = ActiveSheet
Set RSMEU_ToRange =
Workbooks(RSMEU_InUse).Sheets("Paste_Buffer").Rang e("A5")

Sometimes it works fine. Other times it refuses to work.

Any ideas?

The On Error Resume Next doesn't tell you when you hit an error it just
executes the next line as if nothing is wrong. Comment out this statement
and see if you get an error.

"Richard J. Snee" wrote:

Perhaps I do not understand what you want me to do but...

I trace the code in break mode a step at a time. Execution just stops. No
errors of any kind. It does not go into break mode. If I stop (via a break)
before the problem line and use the Debug menu to skip over it, the next line
works but what the skipped line does is essential to my macro so if I comment
it out my macro does not do what I intend.


"Joel" wrote:

Comment out the Error statments and fix the errors by testing for them, not
jumping around these errors.

"Richard J. Snee" wrote:

My macro just stops execution without any error message as if it encountered
an END statement. It does this at the line ActiveSheet.Name =
"Paste_Buffer"

On Error Resume Next
Application.DisplayAlerts = False
ActiveWorkbook.Sheets("Paste_Buffer").Delete
Application.DisplayAlerts = True
On Error GoTo 0
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Paste_Buffer"

Set RSMEU_BufferSht = ActiveSheet
Set RSMEU_ToRange =
Workbooks(RSMEU_InUse).Sheets("Paste_Buffer").Rang e("A5")

Sometimes it works fine. Other times it refuses to work.

Any ideas?