I have a code as

Range("D14", "Q14").UnMerge it's working fine when i give the number

But when i put this in a loop as

For i =1 to ActiveSheet.UsedRange.Rows.Count
Range("D &i", "Q &i").UnMerge
next i


It's not working ..


Can anyone help on this ..?

Thanks