VBA returning an "object invoked has disconnected from its clients" error then crashing Excel

[d0rian]

I'm re-creating my main work file in Excel 365 (had used 2007 until now).

I copy-pasted what looks like completely standard sorting VBA code (which works just fine) from my 2007 file, but it behaves oddly when run in my new 365 workbook:
>> It runs fine the FIRST time I run it.
>> But if I then immediately try to run it a second time, it returns an "Automation error - the object invoked has disconnected from its clients" error.

See the blue block in image -- that's the offending piece of code. If I comment it out, the VBA runs fine. But if left in, it generates the error / crashes Excel.
EDIT: I was wrong, it's NOT just the blue / sorting piece that causes the crash...I have it commented out, and still getting the error shown / excel-crash. Ugh, so yeah: can't believe this super simple snippet is causing such a weird headache(?)

 

[NdNoviceHlp]

Hi dOrian. A couple of things. First please post code not pictures of code. You seem to be missing a With sheet and some "."'s before Range at the start of the sub. Using ActiveWorkbook can also be troublesome and can be replaced with ThisWorkbook which will not cause problems. As for your error, this can be caused by the ClipBoard crashing and you are doing alot of copy and pasting. You need to clear the clipboard after pasting. There's some code at this link for that...

Issues with clearing the clipboard using VBA

Found some code online that purports to clear the clipboard... but I'm getting a error I can't decipher. Wonder if anyone has a solution. 'In a separate module #If VBA7 Then Private Declare PtrSafe Function AccessibleChildren Lib "oleacc" (ByVal paccContainer As Office.IAccessible, _ ByVal...

www.mrexcel.com

You should also use..

Application.CutCopyMode = False

after pasting. HTH. Dave