New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.