Ошибка 1004 в vba

Question

Ошибка 1004 в vba

Артур Аннамурадов Ученик (95), открыт 2 недели назад

Почему в этом коде выходит ошибка 1004 ?
Sub nemero_tress()
Dim uno As Integer
uno = Cells(10, 1)
For i = 2 To uno
Sheets.Add(After:=Sheets("Лист3")).Name = Cells(i, 1).Value
Next i
End Sub
uno - ячейка в excel с функцией =СЧЁТЗ, которая считает количество имён в списке

Answer 1

 Sub nemero_tress()  
    Dim uno As Integer  
    Dim wb As Workbook 
    Dim ws As Worksheet 
    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("Лист1") ' Замените "Лист1" на имя вашего листа 
 
    uno = ws.Cells(10, 1).Value  
 
    For i = 2 To uno  
        Sheets.Add(After:=Sheets("Лист3")).Name = ws.Cells(i, 1).Value  
    Next i  
End Sub