I get a runtime error when trying to run a macro and I would like to know how to fix

[RCL38ALP]

Hi, I am getting a message that says Runtime Error '6': Overflow when I run the following code.

How do I fix this?

Sub GoldCustomersHealthcheck()
Dim i As Integer, MessageString As String
 
MessageString = ""
 
For i = 2 To ActiveSheet.UsedRange.Rows.Count
    If Range("B" & i).Value - Range("C" & i).Value > Range("MaxAbsolute").Value _
        Or (Range("B" & i).Value - Range("C" & i).Value) / Range("B" & i).Value > Range("MaxPercentage").Value Then
 
        MessageString = MessageString & Range("A" & i).Value & ","
    End If
Next i
 
If MessageString <> "" Then
    MessageString = Left(MessageString, Len(MessageString) - 2)
    MsgBox ("These customers exceeded the maximum fall last week:" & vbLf & MessageString)
Else
    MsgBox ("No customers exceeded the maximum fall last week.")
End If
 
End Sub

Thanx!

[MikeTheBike]

Hi

It would be usfull if you could indicate which line throws the error, but my first guess is that the used range is more than 32k rows, in which case try dimesioning i as long.

??

MTB