Run-time error 13 (Type Mismatch)

hi,
i am a new user of module in excel.

When i run the following code i get the "Type mismatch" error dialogue box. It was running fine a few hours ago.

What is amusing is that it sometimes give the "Application or object-defined" error dialogue box as well.

What shall i do to resolve this? And, what could be causing 2 different error dialogue boxes for the same code?

Sub addvalues()

For i = 2 To Worksheets.Count

    For j = 12 To 87


        For k = 6 To 20
    
             Worksheets(1).cells(j, k) = Worksheets(1).cells(j, k) + Worksheets(i).cells(j, k)
    
         Next k
    
    Next j

Next i

End Sub

hello

is this Worksheets(1) one or i
and
is this Worksheets(1).cells(j, k) + Worksheets(i) i or 1

i think one of the worksheets contains text

worksheet(1).cells(j ,k) = worksheets(1).cells(j,k) + worksheets(i).cells(j,k)

maybe on worksheet 1 or in worksheet i -- that's why you get a type mismatch


better to post a dummy file for this

Tried your code it works for me
but look at sheet i i've type text and received the error. change it back to number . It's OK.

Attached sample.

@Bradelybww
That's what i'm trying to point ou to Prajesh.
Maybe some of the data in the sheets are formatted as text that's why he receives a type mismatch message.

but why is it that it runs even thought there is no variable declaration? Any idea.

If you don't define variables, they're treated as variant types, which I believe consumes a little more memory than defining them as an integer, range, etc.

IThe Val function accepts a string as input and returns the numbers found in that string.

For example:
Val("34 10 Main Street") would return 3410

So, if your information is formatted as Text, or contains alpha characters in the cell, it would cause the Run-time error 13 of a type mismatch, trying to add text and numbers.