i still can't get it working using named ranges, but the followingseems to get the job done, so i guess it'll do!Application.CutCopyMode = FalseSheets("Source").Columns("C:C").CopySheets("Destination").Columns("K:K").SelectActiveSheet.Paste