Err number 448

[Bamboe]

Hello,

i wrote a VBA macro in Excel using code like this:
If err.number = 91 then ....

this works very fine on my computer. Now I copied this macro on another computer and this code doesn't work anymore. When I expected the error number to be 91 in this case all of a sudden the error number changed to 448 ??

Why does this macro work fine on one computer and when i copy it to another computer error 91 is never generated but always error 448?

Can anybody help me out here?
Thanks,
Stephan.

 

[acron]

Could you possible post some more of the code which produces these error messages.

It is very difficult to tell without knowing exactly what is going on.


Error No 448 = Namd argument not found


A.C

 

[Bamboe]

Here is some piece of code ... So I try to find something and when it isn't there i create it. If the item is found an error is diplayed saying that this item already excists.

When copying this xls file to another computer the find statement always produces the error 448??

Why?

Hope someone can help me.

Private Sub cmdOK_Click()

Dim iAantal As Integer
Dim datDatum As Date
Dim lngBedrag As Long
Dim blnError1, blnError2 As Boolean
Dim myRange As Range

blnError = False
ActiveSheet.Unprotect Password:="a5ZscG41pF"
If lblTest.Caption = "0" Or lblTest.Caption = "2" Then
Range("A5&quot.Activate
On Error Resume Next
Set myRange = ActiveCell.CurrentRegion
myRange.Columns("A:A&quot.Select
Selection.Find(What:=txtVisumAdd, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Activate

If Err.Number = 91 Then 'visumnr staat er nog niet in: 91 ????
Range("A5&quot.Select
ActiveSheet.Unprotect Password:="a5ZscG41pF"
datDatum = txtDatum