I posted a few days ago looking for a solution to this but didn't get much back, however, it was a rather complex way of putting it, so I am hoping by recreating the issue in a simple scenario, I may just get some help :-)
Sub varTest()
Dim i As Integer
Dim theSum As Integer
i = 1
X...