Whoops the code should be...and yes it works without theApplication.CutCopyMode = False commandSheets(1).Cells(i, 8).CopySheets(1).Cells(i, 8).SelectActiveSheet.Paste