Range("A5").Select
ActiveCell.FormulaR1C1 = _
" Worksheets(""Sheet1"").Range(""b19:d10"").Copy Worksheets(""Mac Rslt"").Range(""b3:d3"")"
The file and code from "Monty" works for me !So you don't get any results and don't have a solution.