Change
set r1 =ActiveSheet.cells("c3:c50"),
to
Set r1 = ActiveSheet.Range("c3:c50")

Regards
Rowan

Jimish wrote:
the code is showing compile error in line

set r1 =ActiveSheet.cells("c3:c50"),
set r2
=Workbooks("round+merge.xls").Sheets("sheet3").Ran ge("c3:c50")