OK, thanks, I'll try that. I'm still not sure about this section
(sorry, I don't know how to get it into the blue box - as you can tell, I'm new to this forum)

Sub BlueNRose(rFr As Range, rTo As Range)

Dim i As Long, j As Long

rFr.Copy
rTo.PasteSpecial Paste:=xlPasteFormulas


I'll go ahead an try this though and see what happens.

Thanks!
scm2000