Refining code to prevent run-time error 13 for Private sub

[Laurence D]

Hi there,

Can somebody please help me refine my code so that when I delete cells in column C and D at the same time that I will not produce a run-time error 13 mismatch. Just because I have six other people using this sub and they have zero knowledge or VBA or resetting a sub.

For context the rest of my code will auto-populate the same row in column D when a value is entered into column C.

   If Target.CountLarge > 3 Then Exit Sub 
   If Target.Column <> 3 Then Exit Sub 
   If Len(Target.Value) = 0 Then Exit Sub

I tried adding this code to no avail:

   If Len(Target.Value) = 0 And Len(Target.Offset(, 1).Value) = 0 Then Exit Sub

Thanks,
Laurence

 

[Joe4]

I assume that this is part of some Event Procedure code. Which Event Procedure is it?
Better yet, can you post the whole code?

Note that this might work (depending on what you are trying to actually accomplish with your code).

[FONT=Verdana]If Target.CountLarge >[COLOR=#ff0000] 1[/COLOR] Then Exit Sub[/FONT]

 

[Laurence D]

Thanks Joe,

Nevermind I figured it out!

If Target.Cells.Count > 1 Then Exit Sub

Cheers, Laurence