Overflow error 6

Question

Raj B 1

the code below is giving overflow error 6 - Excel VBA

Dim LR As Long 'LR = Last Row'
Dim kSum As Long 'Sum of Column K'

Workbooks("T12 - Business_turnover.xlsx").Worksheets("T12 - Business_turnover").Activate

LR = Cells(Rows.Count, 11).End(xlUp).Row
MsgBox LR

kSum = CLng(Application.WorksheetFunction.Sum(Range("K2:K" & LR)))

MsgBox kSum

Olaf Helper 47,436 Reputation points

2022-01-10T09:38:38.527+00:00

And on which line do you get the error?
AgaveJoe 30,126 Reputation points

2022-01-10T12:45:40.737+00:00

The overflow error 6 reference documentation is very clear. An overflow results when you try to make an assignment that exceeds the limitations of the target of the assignment. This error has the following causes and solutions:

Overflow (Error 6)

I assume the Sum function produces a number to larger than a long. Please use the debugger to check your logic.

Your answer

Olaf Helper 47,436 Reputation points

2022-01-10T09:38:38.527+00:00

And on which line do you get the error?
AgaveJoe 30,126 Reputation points

2022-01-10T12:45:40.737+00:00

The overflow error 6 reference documentation is very clear. An overflow results when you try to make an assignment that exceeds the limitations of the target of the assignment. This error has the following causes and solutions:

Overflow (Error 6)

I assume the Sum function produces a number to larger than a long. Please use the debugger to check your logic.