Thanks,
It seems to work. Now I'll have to try and understand why so I'll know how to use it next time. Here's what it looks like.
Dim strPathFile As String, strFile As String, strPath As String, strTodaysFile As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
' Change this next...