Run time Error Automation Error

[hyugo]

I am creating a macro in excel and this is the code I have.

Range("P414").Select
Selection.ClearContents
Range("E4:O14").Select
Range("O14").Activate
Selection.Cut Destination:=Range("F414")
Range("F414").Select
Range("E4:E14").Value = Range("D414").Value


When the macro runs I have the fallowing error.

Run-time error '-2147417848 (80010108)'
Automation error
The object invoked has disconnected from its clients.

I have tried running the same macro on 3 other machines besides my own and the other 3 work. Does anyone have any idea why I am getting this error?

 

[VBAjedi]

Not sure about the error, but your code could be simplified quite a bit. Selecting is very rarely necessary, and can sometimes cause strange errors. Try:

    Range("P4:P14").ClearContents
    Range("O14:E4").Cut Destination:=Range("F4")
    Range("E4:E14").Value = Range("D4:D14").Value

Which should do the same thing as your code.

Let us know if that clears up the error or not!

VBAjedi

 

[hyugo]

Thanks, this did simplify the program a little. The error turned out to just be an error with my excel.