Run time error 5 - Invalid procedure call or arguement

[danbates]

Hi,

Please can someone help me?

I have a part of coding below:

    If Not Intersect(Target, Range("M:O")) Is Nothing Then
If Not Target.Value = "" And Asc(Left(Target.Value, 1)) <= 127 Then
            bCorrectPassword = False
            bWrongInput = True
            Target.Value = vbNullString
        End If
    End If

everything works fine until I press the 'delete' button and thats when the error appears. It highlights this line:

        If Not Target.Value = "" And Asc(Left(Target.Value, 1)) <= 127 Then

I have 2 different PC's at work at on 1 PC the error doesn't trigger and on the other 1 it does.

I was just wondering if anyone had any ideas to what might be causing this error.

Kind Regards

Dan

 

[S.H.A.D.O.]

Have you tried this?

If Not Target.Value = """" And Asc(Left(Target.Value, 1)) <= 127 Then

I hope this helps!

 

[danbates]

Hi,

it still triggers the same error

Regards

Dan

 

[Fluff]

Try

If Not Intersect(Target, Range("M:O")) Is Nothing And Len(Target) > 0 Then
   If Asc(Left(Target.Value, 1)) <= 127 Then
       bCorrectPassword = False
       bWrongInput = True
       Target.Value = vbNullString
   End If
End If

You are trying to check if the target is empty at the same time as checking the first character. You need to put them separately

 

[danbates]

Hi Fluff,

that's sorted it Fluff, thank you.

Do you know why the previous code worked on 1 PC and not the other?

Kind Regards

Dan

 

[Fluff]

Glad to help & thanks for the feedback.

I'm surprised that it worked on 1 pc, I've always found that it doesn't work.