You cannot use the reference as Activecell. value instead useSheets("Sheetname").Cells(Row No , Column No). Value.Example :Sheets("Sales"),cells(1,1).Value (Refers to Sales!$a$1)