Export Access To A Copy Of An Excel Template

Hello, I am here back in the forum because would like some help to define a code.

Meloncolly has already helped me but I think that I have mixed up two pieces of code and cannot find the solution.

I need to export my access data to a document in excel.
I will select the recorset of the data to export, using a combo box on a form named MENU.

The excel file is a template named MASTER. Before the recorset is copied, I need to make a copy of the template via code. The copy will be the document into which copy the data. Once the data is copies, I would like an input box asking users if they would like to save the new excel file and be able to name it with the name they will type in the input box.

My last problem is that the database is used by 20 users and what happens if are all exporting to the template? Will this automatically name itselft, MASTER1, MASTER 2, etc?

This is the code that I am using and tried to put together. It does copy the data into master 1 but leaves the template opened. It also tells me that there is something missing.

THanks:

Private Sub ExportToExcel_Click()
Dim myid
Dim obj As Object
Set obj = GetObject("C: estMaster.xls")
'Dim mypath

obj.Application.Visible = True
obj.Windows(1).Visible = True
obj.Application.ScreenUpdating = False


myid = Me.[MyCombo]
'grab the three field values from the table
Dim mySSN, myFirstname, myLname
mySSN = DLookup("[WESSN]", "[MASTER]", "[id]=" & myid)
myFirstname = DLookup("[WEFN]", "[MASTER]", "[ID]=" & myid)
myLname = DLookup("[WELN]", "[MASTER]", "[ID]=" & myid)

'open excel and the required file
Dim appXL3 As Excel.Application
Dim blnStartXL3 As Boolean

On Error Resume Next
' Check if Excel is already running
Set appXL3 = GetObject(, "Excel.Application")
If appXL3 Is Nothing Then
blnStartXL3 = True
'Else
' We have to start Excel ourselves
Set appXL3 = CreateObject("Excel.Application")
If appXL3 Is Nothing Then
MsgBox "Can't start Excel", vbExclamation
GoTo exit_handler
End If
End If
With appXL3
'.Visible = True
On Error GoTo Err_Handler

'open the excel file

'mypath = "C: estMaster.xls"
'.Workbooks.Open mypath
.ActiveWorkbook.SaveAs "c: estMaster1.xls"
.Sheets("Data").Select
'enter variable values into cells
.Range("B6") = mySSN
.Range("B3") = myFirstname
.Range("B5") = myLname

'do some other stuff

'save the workbook
.ActiveWorkbook.Save
'close it too
.ActiveWorkbook.Close
.ActiveWorkbook.Close

'exit and tidy up
exit_handler:
On Error Resume Next

If blnStartXL3 = True Then
'We must quit Excel
appXL3.Quit
End If
Set appXL3 = Nothing

Exit Sub

Err_Handler:
MsgBox Err.Description, vbExclamation
DoCmd.SetWarnings True
Resume exit_handler
MsgBox "The tables have been successfully exported to " & txtExportFile & "."

Exit Sub
End With

End Sub