Thanks so much for the reply Paul.

I was able to update the code to replacing ThisDocument.Path to a different path. The pop up box came up, but when I selected the name and clicked okay, I received a Run-time error '5941': The requested member of the collection does not exist.

The debugger shows it's part of this sub, and the part bolded and underlined below is what came up as the error:

Sub FillCC(strTag As String, strText As String, Optional lngItem As Long = 1)
'Writes data to a targeted CC.


With ActiveDocument.SelectContentControlsByTag(strTag). Item(lngItem)
.LockContents = False
.Range.Text = Replace((Replace(strText, Chr(13) & Chr(10), Chr(11))), "|", Chr(11))
.LockContents = True
End With
lbl_Exit:
Exit Sub
End Sub

Any ideas why that could cause an error?