Copy cell to another sheet

mimic - Nov 2, 2009 at 01:15 PM
 Blocked Profile - Nov 3, 2009 at 07:17 AM

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

Blocked Profile
Nov 3, 2009 at 07:17 AM
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.