Add this as the first line of code, directly after your Sub name, but before the For loop:

Dim Cell As Range, c As Range