VBA overflow error help

[pplstuff]

I have written the code below. It runs fine until j = 485000 , then I get run-time error overflow. What Am I doing wrong?

Sub Breakeven()
    Dim i As Integer, j As Long, k As Byte, l As Long
    With ThisWorkbook
    For i = 0 To 9
    j = 445000 + 10000 * i
    Range("c2") = j
        For k = 0 To 9
        l = 2300 + 500 * k
        Range("c3") = l
        Calculate
        Range("c5").GoalSeek Goal:=0, ChangingCell:=Range("c4")
        Range("c4").Select
        Selection.Copy
        Sheets("Sens").Cells(9 + i, 3 + k).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Next k
    Next i
    End With
End Sub

Thanks for your help!

 

[Mindpsyche]

You need to be a little more clear with what you are trying to achieve with the Macro and then probably one of the VBA pros could help you out.

 

[MickG]

Try this:-
When you get your error Click on "Help" to see the Problem and the answer !!!

j = 445000 + CLng(10000) * i

 

[pplstuff]

Try this:-... CLng(10000)

Thanks, Mick! Worked perfectly. Didn't think I had to declare static numbers as variables.

It was a hybrid of sensitivity analysis and breakeven points.

 

[Andrew Poulsom]

You just need to declare i as Long rather than Integer. In your code the result of multipling 10000 by 4 was greater than the largest possible integer.