APPLICATION.DIALOGS XLDIALOGSAVEAS .SHOW NAO FUNCI

USUARIO.EXCLUIDOS 10/04/2007 18:01:19
#211114

Galera,


meu codigo não quer funcionar... alguem pode me ajudar???

Application.Dialogs(xlDialogSaveAs).Show

Quando chega nesta linha ele para, se eu vou no arquivo que eu abri e tento abrilo de novo ai sim aparece a caixa SaveAs e o programa continua, Acho que é pq não estou ativando mas ja tentei muita coisa e nao consegui. aqui vai uns testes:
' Sets the Visible property to False.
ActiveWindow.Visible = False

' Sets ScreenUpdating to False.
excel.Application.ScreenUpdating = False

' Sets the macro workbook Visible property to True.
Windows("TRANSMISSOR DE NIVEL ULTRASSONICO.xls").Visible = True

' Displays the SaveAs Dialogbox.
Workbooks.Application.Dialogs(xlDialogSaveAs).Show

' Resets the Visible property to False.
ActiveWindow.Visible = False


Valeu...