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:
|change VBA to show result in cells rather than debug.print||4||37|
|Hiding column macro||10||28|
|Conditional Format - Prevent User entering USA Date formats into Excel 2010||3||22|
|Match data in columns A from two worksheets to create 3rd worksheet||14||13|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!