Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Set rng = wsEWork.Range("E7:E" & lrow) For Each item In rng 'was it selected with an X in column E? If UCase(item.Value) = "R" Then 'row was selected Range("E" & item.row & ":J" & item.row).Copy 'transfer to Install Checklist wsInstall.Range("E" & nextECopy).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False nextECopy = nextECopy + 1 End If wsEWork.Activate Next item
Join the community of 500,000 technology professionals and ask your questions.