Run-time error '-2147417848(80010108)'

It would help to have a little more information.  What is the nature of your macro.  What is it trying to do?  What is happening when you get this error?  Have you gone into your VBA code and stepped through one line at a time to try to find where the error is happening?  Do you have any ActiveX components in your Excel file?

If the error is occurring on

Call copyFormulaDown

Then it never actually runs that sub, and therefore I would be looking to the lines before the call to try to understand what might be causing the problem. Rather than posing that sub, it might be helpful if you post the sub containing the call (or at least relevant portions of it, if it is too lengthy).

Are you attempting to run this code while your userform is still open/visible?

For troubleshooting, just before your call statement, check the Activesheet with something like

msgbox Activesheet.name

and see whether it returns the expected result.

Also, just for the sake of troubleshooting- this is only 8 lines of code, so consider pasting them into your main sub instead of using the call, and see if it breaks on a different line.

HTH,

Keith

I agree with EJGUN, it would be helpful to know what your macro (and workbook) are designed to do. Without that information, we can only provide wild guesses.

• Is there any reason to think that an object (graph, drop-down box, or something else) might be selected when the macro runs?
• Is there any reason to think that a chart or other object (anything other than a worksheet) might be selected?
• does the target range have any types of protection (cells locked, etc)?
• Are you using HPageBreaks.Add in your code?
• Are you using an ADO connection?
• Are you using a userform in your workbook?

The error text in Excel is not always descriptive, but are you linking to an external database or report? When your code runs at full speed, are you trying to do something incompatible while the connection is still open?

When I step through the code, the error doesn't happen. The error occurs at the line below

Call copyFormulaDown

Sub copyFormulaDown()

Dim ASlastRow As Long

ASlastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Range("D2:K2").Copy

Range("D3:D" & ASlastRow).Select

Selection.PasteSpecial Paste:=xlFormulas

Range("O2").Copy

Range("O3:O" & ASlastRow).Select

Selection.PasteSpecial Paste:=xlFormulas

End Sub

In the Visual Basic Editor (VBE), go to the Tools menu, selection Options.  On the General tab, select "Break on All Errors".  Then try going through your code again.  Let me know if that provides you any more information.

IMPORTANT:  When you're done, make sure you set the Option back to "Break on Unhandled Errors"