Forgot code :

Sub Auto_Open()

Application.Dialogs(xlDialogOpen).Show "F:\Test\Actis Scan"

End Sub


In there i need to get the full path and then close the file again

Thanks