Why am I getting an Application-Defined or an Object-Defined?

[Shafty]

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

I am getting error on the below code

.Sheets.Add After:=Individuals.Sheets.Count, Count:=Employees.ListRows.Count

Please Help. Thank You

 

[mikerickson]

What is the value of Employees.ListRows.Count ?

 

[joeu2004]

As I understand it (perhaps incorrectly), ListRows is a property of ListObject (no "s"), whereas Employees is the collection ListObjects (with "s"). ListRows is not a property of the collection ListObjects.

Perhaps Count:=Employees(1).ListRows.Count will work syntactically.

But I do now know if that is the right answer semantically, if Employees might have more than one object.

I wonder if you should write Count:=nrows, where nrows is determined by one of the following (you decide which is more appropriate):

Dim nrows As Long, obj As Variant

For Each obj in Employees
    nrows = nrows + obj.ListRows.Count  ' sum of ListRows.Count
Next

or

For Each obj in Employees
    If obj.ListRows.Count > nrows Then nrows = obj.ListRows.Count  ' max ListRows.Count
Next

 

[joeu2004]

As I understand it (perhaps incorrectly), ListRows is a property of ListObject (no "s"), whereas Employees is the collection ListObjects (with "s"). ListRows is not a property of the collection ListObjects. Perhaps Count:=Employees(1).ListRows.Count will work syntactically.

A total misdirection. Sorry.

 

[Shafty]

After:=Individuals.Sheets(Individuals.Sheets.Count)

This solves the problem...