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?