Ferreira, tanto Auto_Open como Workbook_Open são rotinas para serem executadas ao iniciar, a diferença é aque Auto_Open praticamente não se utiliza mais, foi craiada para resolver alguns problemas de incompatibilidades nas versões anteriores, tem um tópico no Forum sobre a mesma, então o ideal é utizar o Evento Workbook_Open.
Com certeza o erro se dá devido as referencia, mais uma vez vou colocar aqui no forum como lidar com o Objeto Application, Workbook e Worksheet, perca alguns minutos e procure ler as lições 4, 5 e 6, o idela é ler todas.
Lição 04: VBA - Trabalhando com o objeto Application
http://www.juliobattisti.com.br/excel12 ... licao4.htm
O erro é porque você não tem a Worksheet (Objeto) com o nome Inicial, veja que falei Objeto e não uma ABA ou não está referenciando corretamente.
A instrução abaixo só ira funcionar se tivermos um Objeto com o Nome Inicial.
Sub Auto_Open()
inicial. Select
End Sub
O correto aqui seria, uma das seguintes formas :
Sub Auto_Open()
Sheets("Inicial").Activate
End Sub
Sub Auto_Open()
Dim Inicial As Worksheet
Set Inicial = Sheets("Inicial")
Sheets("Inicial").Activate
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 24/03/2012 4:06 pm