Copy cell to another sheet

 Blocked Profile -

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!

1 reply

Dear Mimic,

Please consider using the below sample to have the problem solved:

If Sheets("Sheet1"). Range("I5").Value = "Sample" Then _
Range("I5").EntireRow.Copy Destination:=Sheets("Complete").Range("A1")

Thanks in advance.