oWS.Cells(r.Row, r.Column).Copy
With aws.Cells(r.Row, r.Column)
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteValues
.Locked = oWS.Cells(r.Row, r.Column).Locked
End With



--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Barb Reinhardt" wrote in message
...
I have the following working:

With aWS.Cells(r.Row, r.Column)
.Value = oWS.Cells(r.Row, r.Column).Value
.Locked = oWS.Cells(r.Row, r.Column).Locked
'.Font.Interior.ColorIndex =
oWS.Cells(r.Row,r.Column).Font.InteriorColor.Index
end with

I want to copy the background color index, the conditional format and the
cell validation from oWS to aWS. Can someone assist?