Primeiramente, delcare "As Workbook" (sem "s")
Em segundo lugar, se vc declarou uma variável, ela não pode ser o nome da sub. Vc quer ter uma sub que contenha argumentos? Então creio outro nome para a sub, e crie outro nome para o argumento, algo assim:
Dim esteLivro As Workbook
Sub nome_da_sub(nova_variavel)
Agora, se vc quer ter uma sub sem argumentos, vc precisa atribuir valor à variável, senão ela vai estar vazia e vai dar erro:
Sub nome_da_sub()
Dim esteLivro As Workbook
Set esteLivro = ThisWorkbook
Depois vc vai poder usá-la:
esteLivro.Activate
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 26/01/2015 4:39 am