请高手帮忙看一下excelVBA语句，运行提示要求对象，我想把所有工作表的A1复制到一张表上

Sub 复制A1()
Dim n As Byte
Do while n<=worksheets.count
n = n + 1
Sheets(n).Range("a1").Copy Sheets(35).Cells(n, 3)
'Sheets(35).Cells(n, 3)=Sheets(n).Range("a1")
Loop
End Sub

Sub 复制A1()
for i=1 to worksheets.count
    if i<>35 then Sheets(i).Range("a1").Copy Sheets(35).Cells(i, 3)
    'if i<>35 then Sheets(35).Cells(i, 3)=Sheets(i).Range("a1")
next
End Sub

Sub 复制A1()
i=1
for each st in worksheets
    with st
        if .name<>Sheets(35).name then .Range("a1").Copy Sheets(35).Cells(i, 3)
        'if .name<>Sheets(35).name then Sheets(35).Cells(i, 3)=.Range("a1")
        i=i+1
    end with
next
End Sub