Thanks for the message. It worked. I put it in the following location. I did not set it to true and the end because this database will not be monitored, only the results.
Private Sub Command1_GotFocus()
Dim i As Integer
Dim objExcel
Dim objWorkBook
Set objExcel =...