MailMerge.DataSource (Word)

Returns a MailMergeDataSource object that refers to the data source attached to a mail merge main document.

If ActiveDocument.MailMerge.DataSource.Name <> "" Then _ 
 MsgBox ActiveDocument.MailMerge.DataSource.Name