If its only data and you only need the value try
sheets("Sheet2").Range("E5").value=sheets("Sheet1" ).Range("B4")



--
Don Guillett
SalesAid Software

"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/