Hi,
I was just wondering if all the code below is correct.I was trying to add the find option to it and it leaves funny black cells behind. Never seen this before happening. It seems to copy correctly though.
Thanks a million
Anndonny
Dim rng As Range
Dim rng_find As Range
Set rng_find = Workbooks("Test1.xls").Worksheets("Sheet1").Range("A1:A65000").Find(what:="RedLine")
With Workbooks("Test2.xls").Worksheets("Sheet1")
' periods in front of all references except rng
Set rng = .Range(.Range("A2"), .Range("G2").End(xlDown))
End With
rng.Copy Destination:=rng_find.Offset(1, 0)
I was just wondering if all the code below is correct.I was trying to add the find option to it and it leaves funny black cells behind. Never seen this before happening. It seems to copy correctly though.
Thanks a million
Anndonny
Dim rng As Range
Dim rng_find As Range
Set rng_find = Workbooks("Test1.xls").Worksheets("Sheet1").Range("A1:A65000").Find(what:="RedLine")
With Workbooks("Test2.xls").Worksheets("Sheet1")
' periods in front of all references except rng
Set rng = .Range(.Range("A2"), .Range("G2").End(xlDown))
End With
rng.Copy Destination:=rng_find.Offset(1, 0)