Dear Ron:

Works like a charm. Thanks. Why did not my approach work?
--
Dr. Doug Pruiett
Good News Jail & Prison Ministry
www.goodnewsjail.org


"Ron de Bruin" wrote:

> Hi Chaplain
>
> You must use ChDirNet, copy this at the top of your module
>
> Private Declare Function SetCurrentDirectoryA Lib _
> "kernel32" (ByVal lpPathName As String) As Long
>
> Sub ChDirNet(szPath As String)
> Dim lReturn As Long
> lReturn = SetCurrentDirectoryA(szPath)
> If lReturn = 0 Then Err.Raise vbObjectError + 1, "Error setting path."
> End Sub
>
>
> Then use this in your macro
>
> ChDirNet "\\ComputerName\YourFolder"
>
>
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Chaplain Doug" <ChaplainDoug@discussions.microsoft.com> wrote in message news:4B58420E-A37B-4729-83AC-CDB9D7D5BD01@microsoft.com...
> > Excel 2003. I am using
> >
> > FName = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Select
> > ACH
> >
> > to select a file to process. I want this dialog to open into a specific
> > folder. Right now it opens into my "My Documents" folder. I have tried:
> >
> > Application.DefaultFilePath = "\\hqserver\shared\Finance\Payroll ACH Files"
> > and
> > Application.DefaultFilePath = "H:\Finance\Payroll ACH Files"
> >
> > but neither seems to change the folder the GetOpenFilename looks in. How
> > may I accomplish what I am trying to accomplish? Thanks and God bless.
> > --
> > Dr. Doug Pruiett
> > Good News Jail & Prison Ministry
> > www.goodnewsjail.org
>
>
>