(Resolvido) "Next sem For" mas tem For!

[Zow]

Pessoal

Há algum limite para uso do For e do If no código?

Tipo, se eu colocar um If dentro de um For muda alguma coisa? Ou se já existir um For anteriormente, pode dar algum problema?

Meu código está funcionando perfeitamente, mas quando coloco o trecho abaixo, que verifica se uma planilha já existe, dá o erro: "Next sem For"

Dim J As Long
    Dim quantidade As Long
    quantidade = Application.Sheets.Count
    For J = 1 To quantidade
    If nome = Sheets(J).Name Then
    MsgBox "Todas as planilhas já foram carregadas"
    Next J

PS. A variável nome foi definida no código base como sendo o nome de uma nova planilha

[Danleonhart]

Olá Zow...

Tá ocorrendo erro porque você não "fechou" o uso do "If"...

cê tem que finalizar o If usando o "End If"

Veja seu código mais organizado:

Dim J As Long
Dim quantidade As Long

    quantidade = Application.Sheets.Count

      For J = 1 To quantidade

          If nome = Sheets(J).Name Then
            MsgBox "Todas as planilhas já foram carregadas"
          End If

      Next J

Veja que só adicionei o "End If"...

Editado Fevereiro 15, 2012 por Danleonhart

[Zow]

Beleza Dannleonhart,

Era isso mesmo!!!

obrigado!