Erro de acesso a caminho/arquivo

[Jefferson S.G.]

Alguém poderia me auxiliar?

Está acontecendo um erro que só acontece quando o Excel já está aberto, mas o arquivo não.

Se eu abrir o arquivo e o Excel ainda estiver fechado, o erro não acontece.

Coloquei em uma planilha para quando abrir aparecer uma msgbox conforme segue:

Private Sub Workbook_Open()
 Plan13.Select
 Call Macro1
End Sub

Quando chama a Macro1 segue:

Sub Macro1()
    avi = MsgBox("Atualizar dias úteis?", vbYesNo + vbQuestion, "Aviso")
    If avi = vbYes Then
        userform1.Show
    Else
        End
    End If
End Sub

Quando a linha que mostra o userform1 é lida, aparece o seguinte erro:

"Erro de acesso a caminho/arquivo"

Alguém saberia me informaro motivo? Conforme eu disse, isso só ocorre se o Excel já estiver em execução (com o arquivo fechado), caso o contrário, o processo ocorre normalmente quando inicio o Excel abrindo o arquivo.

Obrigado!

Editado Maio 21, 2010 por kuroi
Adicionar tag CODE

[João.Neto]

Que coisa caótica hein?!

Bem, veja se o UserForm1 está no mesmo arquivo onde está a Macro1.

Se sim, então faça a seguinte gambiarra: Crie um novo arquivo e copie tudo do antigo para o novo.

Já tive um monte de problemas com o Excel que nunca consegui explicar logicamente. Às vezes, parece que baixa um encosto no arquivo e já era. Mas, na maior parte era só copiar tudo para um novo arquivo e resolvia.

Editado Maio 21, 2010 por João.Neto

[Jefferson S.G.]

Ufa! Consegui.

Foi só carregar o formulário.

Acrescentei um

load userform1

antes de chamar a macro.

Ficou:

Private Sub Workbook_Open()
 Plan13.Select
 Load userform1
 Call Macro1
End Sub

De qualquer forma, brigadão!

Editado Maio 21, 2010 por kuroi
Adicionar tag CODE