Private Sub CommandButton48CopyTextInTextbox_Click()
If selection.Type = wdSelectionIP Then InSelection = True
selection.HomeKey wdStory
TextBox8refList.SetFocus
SendKeys "{Home}"
SendKeys "+{End}"
DoEvents 'This was the key to this working. Macro was going ahead of itself
TextBox8refList.SetFocus
TextBox8refList.Copy
Dim DataObj As MSForms.DataObject
Set DataObj = New MSForms.DataObject
DataObj.GetFromClipboard
strPaste = DataObj.GetText(1)
Dim dlg As Dialog
Set dlg = Application.Dialogs(wdDialogEditFind)
dlg.Find = strPaste
SendKeys "%(f){tab}{ENTER}"
dlg.Show
''''''This section added, and it makes it use the navigation window
If CheckBox17NavigationPane.Value = True Then
SendKeys "^f"
SendKeys "^v"
SendKeys "{ENTER}"
End If
''''''''''''''''''''''''''''''''''''''
End Sub
Well after much trial and error I found this works and with the checkbox option I can have it use either the regular search box or the navigation pane.