Run-time error '429' ActiveX component can't create object

Thanks romperstomper for the help. However I am using Access vba as front end. I did not find the Break on all errors in the option on the general tab.

Sorry shg I forgot. I just put the code tag there.

Yes I see it now.

Break on all errors in

Changing the option to Break on Unhandled Error did solve the problem. I am also going to try the solution suggested by you. Thanks Leith.
Thanks romberstomper for pointing out the location to fix the error.

Hi

I have the following macro to find the last blank cell in a column range, and enter data.

It used to work fine, but now returns the error:

'Application-defined or object-defined error'

Sub SETTest()
'
' SETTest Macro
' Macro recorded 23/03/2010 by Richard Fisher
'
ActiveSheet.Unprotect

Dim FirstBlankCell As Range
Set FirstBlankCell = Range("A1:A10").End(xlDown).Offset(1, 0)
FirstBlankCell = Range("B1")

ActiveSheet.Protect
End Sub

I've researched and found that the syntax is correct and it worked a year ago, so I'm totally flummoxed!

Any ideas?

Kind regards,

Richard Fisher
richard@granddeckdesigns.com

Hello Leith Ross,

I also had the same problem (GetObject) not working. It worked fine on Excel 2003 but when moving to a laptop with Excel 2007 it did not work, however using your empty string suggestion solved the problem. Thanks, Keith.

Hi Again,

Well, after further testing the solution did not work as I expected, so I summarise as follows:-

Set XlApp = GetObject(, "Excel.Application")

works in 2003, i.e. it just fetches the existing running excel object and does not open any new object (exactly the behaviour I was looking for. This however does not work in 2007 version, instead the error code 429 is returned.

Set XlApp = GetObject("", "Excel.Application")

as suggested by Leith above solves the Error 429, but the behaviour now is to open a new Excel application. Originally I though this had worked because it returned object, and i saw no new Excel Application running, however this was because it was not visible. I only detected it because the xlApp.Workbooks.Count call was returning 0 open workbooks when clearly there was a workbook open in the visible application.

Finally however I got it working in 2007, the correct code to use is:

Set XlApp = GetObject(Class:="Excel.Application")

with this format, no new object is created, and instead the existing application is returned and the existing workbook is found...

/k