Excel Macro Overflow 6 Error Help

[xxcucumberxx]

Can some one help me fix this error. When i run it the first time it works fine but when i make the edits and run it agian i get the "Overflow 6 Error"

Dim cid(100) As String
Dim rX As Range
Dim rEnd As Range
Dim i As Integer
Dim x As Integer

x = 0
Set rX = Sheets("VSP Template").Range("A2")
Set rEnd = Range(Find_Last_Row).Offset(1, 0)
Do Until rX.Address = rEnd.Address
Select Case Len(rX)
Case 6
rX = "'00" & rX
Case 7
rX = "'0" & rX
End Select
For i = 0 To 100
If cid(i) = "" Then
cid(i) = rX
x = x + 1
Exit For
End If
If cid(i) = rX Then Exit For

Next i


Set rX = rX.Offset(1, 0)
Loop

If x > 1 Then

For i = 0 To x - 1
UF1.lb1.AddItem cid(i)
Next i

UF1.Show
DoEvents



Else


End If




Can some one please help me fix this and thank you who does!

 

[Joe4]

See here: https://msdn.microsoft.com/en-us/library/aa264525(v=vs.60).aspx

Perhaps you need to declare i and x as Long instead of Integer?