I was unable to get the macro to work with the following statement:
If .Fields.Count = 0 Then
Undo
GoTo ErrExit
End If

However, if you remove the bolded "undo", it works fine..

Thanks again