Move this line: Dim I As Integer

to a general declaration. When dimmed in a sub it will always be set back to 0.