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


--
slaya_cz
------------------------------------------------------------------------
slaya_cz's Profile: http://www.excelforum.com/member.php...o&userid=16723
View this thread: http://www.excelforum.com/showthread...hreadid=378911

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

Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378911

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


--
slaya_cz
------------------------------------------------------------------------
slaya_cz's Profile: http://www.excelforum.com/member.php...o&userid=16723
View this thread: http://www.excelforum.com/showthread...hreadid=378911

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


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378911

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


--
slaya_cz
------------------------------------------------------------------------
slaya_cz's Profile: http://www.excelforum.com/member.php...o&userid=16723
View this thread: http://www.excelforum.com/showthread...hreadid=378911

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


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378911