Option Explicit

Private Sub UserForm_Initialize()
    EmpNameList.MultiSelect = 2       
    With EmpNameList
        .AddItem "Ally"
        .AddItem "Linda"
        .AddItem "Cameron"
        .AddItem "Ron"
        .AddItem "Tony"
    End With
    
End Sub

Private Sub EmpNameList_Change()
Select Case EmpName
 Case "Ally"
    With EmpNum
    EmpNum.Text = "1234"
    End With
    
    With ManagerName
    ManagerName.Text = "Jerry"
    End With
    
 Case "Linda"
    With EmpNum
    EmpNum.Text = "4567"
    End With

    With ManagerName
    ManagerName.Text = "Mike"
    End With

 Case "Cameron"
    With EmpNum
    EmpNum.Text = "6789"
    End With

    With ManagerName
    ManagerName.Text = "Tom"
    End With

 Case "Ron"
    With EmpNum
    EmpNum.Text = "0132"
    End With

    With ManagerName
    ManagerName.Text = "Ralph"
    End With

 Case "Tony"
    With EmpNum
    EmpNum.Text = "6783"
    End With

    With ManagerName
    ManagerName.Text = "Tom"
    End With
 End Select
End Sub

Private Sub cmdOK_Click()
    Dim fileName As String
    Dim Cost_Center
    Dim Auth_Date1
    Dim Auth_Date2
    Dim Emp_Name
    Dim Emp_Num
    Dim Man_Name
    EmpName.List = Array("Ally, Linda, Cameron, Ron, Tony")
    
'   Checking for completion of the form
    If CostCenter.Value = "" Then
        MsgBox "Please enter the Cost Center.", vbExclamation, "Input Data"
        CostCenter.SetFocus
        Exit Sub
    End If
    
    If AuthDate1.Value = "" Then
        MsgBox "Please enter the Period of Authorization.", vbExclamation, "Input Data"
        AuthDate1.SetFocus
        Exit Sub
    End If
    
    If AuthDate2.Value = "" Then
        MsgBox "Please enter the Period of Authorization.", vbExclamation, "Input Data"
        AuthDate2.SetFocus
        Exit Sub
    End If
    
    If EmpName.Value = "" Then
        MsgBox "Please select the Employee Name(s).", vbExclamation, "Input Data"
        EmpName.SetFocus
        Exit Sub
    End If
    
    If EmpNum.Value = "" Then
        MsgBox "Please enter the Employee Number(s).", vbExclamation, "Input Data"
        EmpNum.SetFocus
        Exit Sub
    End If
    
    If ManagerName.Value = "" Then
        MsgBox "Please enter the Authorizing Manager's Name.", vbExclamation, "Input Data"
        ManagerName.SetFocus
        Exit Sub
    End If

    Me.Hide

    Cost_Center = CostCenter.Value
    Auth_Date1 = AuthDate1.Value
    Auth_Date2 = AuthDate2.Value
    Emp_Name = EmpName.Value
    Emp_Num = EmpNum.Value
    Man_Name = ManagerName.Value

'   Creates new document to save as the Employee's Authorization Form
    fileName = EmpName.Value & "_LaborAuthorizationForm"
    Documents.Add "LaborAuthorizationForm.docm"
    With Dialogs(wdDialogFileSaveAs)
        .Name = fileName
        .Show
    End With

End Sub

Private Sub cmdCancel_Click()
    Me.Hide
End Sub

Option Explicit
Private Sub UserForm_Initialize()
  With EmpNameList
    .MultiSelect = 1
    .AddItem
    .List(.ListCount - 1, 0) = "Ally"
    .List(.ListCount - 1, 1) = "1234"
    .List(.ListCount - 1, 2) = "Ally"
    .List(.ListCount - 1, 3) = "Ally"
    .AddItem
    .List(.ListCount - 1, 0) = "Linda"
    .List(.ListCount - 1, 1) = "1234"
    .List(.ListCount - 1, 2) = "Jerry"
    .AddItem
    .List(.ListCount - 1, 0) = "Cameron"
    .List(.ListCount - 1, 1) = "6789"
    .List(.ListCount - 1, 2) = "Tom"
  End With
  cmdOK.Enabled = False
End Sub
Private Sub Cost_Center_Change()
  Validate
End Sub
Private Sub Auth_Date1_Change()
  Validate
End Sub
Private Sub Auth_Date2_Change()
  Validate
End Sub
Private Sub cmdOK_Click()
Dim fileName As String
Dim lngIndex As Long
Dim oDoc As Document
  For lngIndex = 0 To EmpNameList.ListCount - 1
    If EmpNameList.Selected(lngIndex) Then
      Set oDoc = Documents.Add("LaborAuthorizationForm.docm") 'You should use a template not a document.
      With oDoc
        'Replace these msgboxes with whatever code you want to use to write to the document targets (i.e., table cells, bookmarks, content controls, etc.)
        MsgBox EmpNameList.List(lngIndex, 0)
        MsgBox EmpNameList.List(lngIndex, 1)
        MsgBox EmpNameList.List(lngIndex, 2)
        MsgBox Cost_Center
        MsgBox Auth_Date1
        MsgBox Auth_Date2
        oDoc.SaveAs2 EmpNameList.List(lngIndex, 0) & "_LaborAuthorizationForm"
        oDoc.Close
        Set oDoc = Nothing
    End If
  Next
End Sub
Private Sub cmdCancel_Click()
  Hide
End Sub
Sub Validate()
  cmdOK.Enabled = True
  If Cost_Center = vbNullString Then cmdOK.Enabled = False
  If Not IsDate(Auth_Date1) Then cmdOK.Enabled = False
  If Not IsDate(Auth_Date2) Then cmdOK.Enabled = False
End Sub