Run-time error 13 in VBA

[S0ph1e]

I am very new to coding in excel so have no idea how to resolve my error message.

I have used the below code to create a multi selection drop down list. When I go to create a new row in the work sheet, I get the error message: Run-time error "13" Type mismatch.

Excel highlights where the error is but i have no idea how to correct it! Please help

 

[Legacy 143009]

Weird.. Could you please try:

Else: If IsEmpty(Target.Value) Then GoTo Exitsub Else

 

[RoryA]

If you insert a row, Target is the entire row, and you can't compare an array of values using =

You could add:

If Target.Countlarge > 1 then exit sub

 

[S0ph1e]

Weird.. Could you please try:

Else: If IsEmpty(Target.Value) Then GoTo Exitsub Else

I tired this and it flagged up an error further on in the code. I have the solution now but I really appreciate your suggestion

 

[S0ph1e]

If you insert a row, Target is the entire row, and you can't compare an array of values using =

You could add:

If Target.Countlarge > 1 then exit sub

This worked! Thank you

 

[RoryA]

Glad we could help.