Forum Discussion
Problem with ActiveSheet.Paste function
Hello All, I used for a long time a small code into a worksheet to avoid doing manual Copy/Paste. Since 2019 this code worked well until yesterday. This is te part of my code where the problem happ...
Your code is very simple! Thank you for that.
I tested it but the result is similar. So, maybe the problem isn't ActiveSheet.Paste function.
Try adding the following lines at the beginning of your macro:
Application.Cursor = xlWait
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
and at the end:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.Cursor = xlDefault
- I replaced ":=" by "=" for this line Application.Calculation:=xlCalculationManual because of an error.
The cursor change at this previous line but when the copy and paste line is executed it continues to take longerMy apologies for the error; I have corrected it.
I'm afraid I have no further suggestions without seeing the workbook.
- Thank's for what you did. I learnt the simplest way to write this code