I know how simple this question is but I just cannot find the solution anywhere on the net or in the help files.

I have data in a cell on a sheet in Excel with a border set around the cell. I want to copy the data to another sheet but without the border. The following code works for the data but it also copies the border.

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