I did as you suggested and I am still getting a run-time error '1004', 'Application-defined or object-defined error' on the line 
 ActiveCell.Value = Sheets("CoA").Range(CellAddress).Value
Although the code fails at this point the actual date does get pasted to the second sheet: but that is as far as it goes. Any other ideas?