VBA Macro - Word

[gmaxey]

lets say it is written in a document content control titled "Email Address"

.To = Doc.SelectContentControlsByTitle("Email Address").Item(1).Range.Text '