We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Set wdFind = appWd.Selection.Find Set rngTable = Sheets("Sheet1").Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row) For Each cell In rngTable If cell.Value = "" Then GoTo myExit Else Application.Goto Reference:=cell.Value Selection.Copy 'wdFind is a public object wdFind.Text = cell.Value 'This makes sure the string is pasted without any formating Call NoFormatPaste End If Next cell myExit:
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.