Copy cell to another sheet

Hello,

I'm have a problem. How can i copy a cell with its properties like cell border to another cell(ActiveCell) in a different sheet.

I need a function for it , like

Function CopyCell( R as Range) as Long


End Function

so i can call it from a cell like =CopyCell(sheet1!A1)

this would copy the cell value with its borders from cell A1 on sheet1 to the ActiveCell(the cell that is calling the function) on another Sheet.


Please help!