I notice I have c Dimmed twice.

Dim c As Range, Rng As Range
Dim OneRng As Range, c As Range

That is a typo, otherwise code problem is as stated.

Howard