Dim s0 As Worksheet
Dim s1 As Worksheet
Dim s2 As Worksheet
Dim Rng As Range, cl As Range
Set s0 = ThisWorkbook.Sheets("EmployeeSelections")
Set s1 = ThisWorkbook.Sheets("DataBase")
Set s2 = ThisWorkbook.Sheets("Welcome")
Set Rng = s1.Range("a2:a" & s1.Cells(Rows.Count, "a").End(xlUp).Row)
ListBox1.Clear
If s0.Range("a1").Value = "" Then
ListBox1.Enabled = True
SubmitWhoAmI.Enabled = True
For Each cl In Rng
ListBox1.AddItem cl
Next
ListBox1.AddItem ""
Else
Call ListBox2EmpployeeSelections
End If
End Function