Este fórum está sendo desativado

[Ellen]

Boa noite, pessoal! Estou fazendo um formulario de cadastro e esta dando erro 9 com a funçao listobjects. Me ajudem, por favor

#linha de codigo. Acusando erro na linha em vermelho#

Sub Inserir()

Dim Planilha1 As Worksheet
Dim tabela As ListObject
Dim n As Integer

Set Planilha1 = ActiveWorkbook.Worksheets("Dados gerais")

Set tabela = Planilha1.ListObjects(1)

n = tabela.Range.Rows.Count

MsgBox n

End Sub


Desde ja, agradeço!

[osvaldomp]

Qual a mensagem de erro ? Existe uma planilha com o nome Dados gerais ? Existe uma Tabela Excel na planilha Dados gerais ?

Experimente mudar o nome da variável Planilha1 para MinhaPlan , por exemplo.

Se não resolver então eu sugiro que você disponibilize diretamente aqui no fórum uma amostra do seu arquivo Excel.