Run Time Error 6: Overflow Error

[ceytl]

Hello, when I run the below code I get: Run Time Error 6: Overflow Error

Any idea on why this is happening?

Thanks!

Sub CopyNumber()

Dim rownum As Long
Dim sht As Worksheet
Dim myval As Long

Set sht = ActiveSheet
rownum = 1

Do Until rownum = sht.Cells(sht.Rows.Count, "T").End(xlUp).row + 1
    If IsNumeric(sht.Range("T" & rownum)) = True Then
    myval = Range("T" & rownum)
    rownum2 = rownum
        If sht.Range("K" & rownum2) = "PA" Then
            Do Until sht.Range("I" & rownum2) = "Name No.:"
                rownum2 = rownum2 + 1
            Loop
        sht.Range("X" & rownum2) = myval
        End If
    End If
rownum = rownum + 1
Loop


End Sub

 

[RoryA]

On which line do you get the error?

 

[StephenCrump]

What line do you get the error on?

One possibility is that column T contains a value too big for a Long datatype:

myval = Range("T" & rownum)

 

[ceytl]

On which line do you get the error?

myval = Range("T" & rownum)

It stops at row 100, and the cell value is: 49556671448

 

[RoryA]

That’s too big for a long. Use Double or even string since you aren’t doing calculations with it.

 

[ceytl]

That’s too big for a long. Use Double or even string since you aren’t doing calculations with it.

Thank you!