R
Richard J. Snee
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").Range("A5")
Sometimes it works fine. Other times it refuses to work.
Any ideas?
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").Range("A5")
Sometimes it works fine. Other times it refuses to work.
Any ideas?