Run-time error '429'

[slaya_cz]

Hi there

I created macro which works fine (Excel XP). The macro is run by the
click on the button. However, when I sent this file to my friend in
Australia (Excel 2003), he receive the error message
"Run-time error '429': ActiveX component can't create object"
we tried the solutions mentioned at the Microsoft web sites but no
success
Can anybody help me with that? Thanks in advance

Cheers
Pavel

 

[mangesh_yadav]

Could you post your code, and the line which gives the particular
error.

Mangesh

 

[slaya_cz]

There are 2 sheets, "Data" and "Start".
When the file is opened, the sheet 'Data' is locked, and there is set
as active sheet 'Start'. There is placed button. When I click on the
button, it runs macro button10_start(). Ask for the ID number and when
I define that, find the row which starts with this number


Sub Auto_Open()
On Error GoTo chyba
Worksheets("Data").Activate
If ActiveSheet.ProtectionMode = False Then
ActiveSheet.Protect Password:="password", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End If
Worksheets("Start").Activate
Exit Sub
chyba: MsgBox ("!!Error!!")

End Sub

Sub button10_start()
Dim rngfact, rng As Range
Dim pom, pom1 As String
Dim D As Date

pomocny_nazev = InputBox("Write the ID number", "ID Number")
pom3 = pomocny_nazev
If pomocny_nazev <> "" Then
' tady najdu ID number
With Worksheets("Data")
Set rngfact = .Range("A2:A999")
With rngfact
Set rng = .Find(What:=pomocny_nazev, After:=.Cells(1),
LookIn:=xlValues, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False)
End With

If rng Is Nothing Then
MsgBox ("ID number " + pomocny_nazev + " not found!")
Else

Worksheets("Data").Activate
Cells.Find(What:=pomocny_nazev, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
True, SearchFormat:=False).Activate
x = ActiveCell.Row
y = ActiveCell.Column
.....and fill in local variables

 

[mangesh_yadav]

And when does the error come, when you open the file, or when you press
the button.

Also, which line is highlighted when the error comes.

Mangesh

 

[slaya_cz]

The error comes when I press the button. The file is opened without any
problem.

there is nothing highlighted, because it displays error dialog and
there is only possibility to press button "End" or "Help". Buttons
"Continue" as well as "Debug" are dimmed so I can define what is wrong
in the code

 

[mangesh_yadav]

Can't find anything in the code that should give an error. Ask your
friend to check for any missing references in the VBE. (Tools >
References. check for boxes which are checked and have missing tag)

Mangesh