Dim iCell as Range can be removed. I had it there as I was testing.

If it's not working for you, then a small sample workbook would be helpful.

I tested this on a small sample before posting and it worked for me, but not sure how you have it setup to work for you.