Why this Simple Code is This Much Difficult?

[Shafty]

Public Sub Test()
Dim Employees As ListObject
    Set Employees = ThisWorkbook.Sheets("Employees").ListObjects("Employees")
Dim Individuals As Worksheets
    Set Individuals = ThisWorkbook.Worksheets.Add(After:=Employees.Parent, Count:=Employees.ListRows.Count)
End Sub

 

[Shafty]

I am getting a Type Mismatch