Hello-
I have a project where i would like each individual user to have his/her own spreadsheet that contains a UserForm. When the info is submitted from the form, I would like the info to be placed in the TaskData sheet in the individual workbook, as well as the TaskData sheet in a Master Workbook. It should then save the data and close the workbook. The Master workbook contains reports, charts, etc for my manager to run reports on the data. All workbooks are created identically and all are located in the same folder on a shared drive. The other part to this is that if the Master workbook is already open, how do I get the info to be added, without getting a "read-only" warning, etc.

When i run the macro shown below, the UserForm data is placed in the TaskData Sheet in the individual workbook, then it opens the Master workbook to attempt to place the data, as expected. But, instead of just placing the data, something is causing the UserForm to open in the Master Workbook, creating an error. Any ideas? Any help is greatly appreciated! Thanks much!

Private Sub cmdAdd_Click()
Dim lRow As Long
Dim lContact As Long
Dim ws As Worksheet
Dim wb As String
Set ws = Worksheets("TaskData")
Set wb = Workbooks("C:\Users\Username\Desktop\Task\TaskDatabase1.xlsm!TaskDatabase")

'find  first empty row in database
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    
lContact = Me.employeeName.ListIndex

'check for contact information
If Trim(Me.employeeName.Value) = "" Then
  Me.employeeName.SetFocus
  MsgBox "Please select a name from the list."
  Exit Sub
End If

'copy the data to the database
With ws
  .Cells(lRow, 1).Value = Me.txtDate.Value
  .Cells(lRow, 2).Value = Me.employeeName.Value
  .Cells(lRow, 3).Value = Me.taskType.Value
  .Cells(lRow, 4).Value = Me.Loc.Value
  .Cells(lRow, 5).Value = Me.txtQty.Value
  .Cells(lRow, 6).Value = Me.DescripText.Value
  
End With

'clear the data
Me.employeeName.Value = ""
Me.taskType.Value = ""
Me.Loc.Value = ""
Me.txtDate.Value = Format(Date, "Short Date")
Me.txtQty.Value = 1
Me.DescripText.Value = ""
Me.employeeName.SetFocus

End Sub