Hi Randy,

Try:

Range("EntryDate").Copy
shComments.Cells(iNextEmptyDateCell, "C"). _
PasteSpecial Paste:=xlValues
Application.CutCopyMode = False


---
Regards,
Norman



"RAP" wrote in message
...
Hello, Folks
The following line in VB works fine, but it pastes the borders, etc...
assigned to the named EntryDate cell. Is there a way to ammend this line
to
PasteSpecial (xlPasteValues) ?

Range("EntryDate").Copy shComments.Cells(iNextEmptyDateCell, "C")

Thanks,
Randy