Ken, try this
Worksheets("Sheet2").Range("E5") = Worksheets("Sheet1").Range("B4").Value


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 2003
** remove news from my email address to reply by email **
"Sparrowhawk " wrote in message
...
I know this is a ridiculously simple question but I cannot find the
solution anywhere on the net or in the help files. I have data in a
cell that has a border around it and I want to be able to copy the data
without the border to a cell on another sheet.

This code copies the border and the data:

Worksheets("Sheet1").Range("B4").Copy _
Destination:=Worksheets("Sheet2").Range("E5")

TIA
Ken


---
Message posted from http://www.ExcelForum.com/