Este fórum está sendo desativado

[estyfodense]

Sub nome()

For i = 1 To sheets.count
Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name

next

End Sub

quando eu uso esse condigo da esse erro do titulo eu coloquei a Sheets(i + 3). para poder contar a partir da terceira aba.

Sub nome()

For i = 1 To 4
Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name

next

End Sub

quando eu defino valor quatro ele para de dar erro porem se eu tiver uma quantidades e abas maior ele nao vai contar, alguem tem uma ideia

[babdallas]

Código: Selecionar todos

Sub nome()

For i = 1 To sheets.count
           If i < =sheets.count - 3 then   Planilha3.Cells(i + 1, 2) = Sheets(i + 3).Name
next

[estyfodense]

Funcionou PERFEITAMENTE, so nao entendi como