Revise this code to select a different Path. HOW?

[Mister H]

Hi All:

I am trying to alter this bit of code so that when the dialog box opens the Look in: folder will be the folder that open file is stored in. I have used this snippet of code before:

TempFilePath = ThisWorkbook.Path & "\"

However I am not sure on how to implement it below OR IF it can be implemented.

I hope this makes sense to someone...

    Dim fd As FileDialog
    Dim fn As String
    
    Set fd = Application.FileDialog(msoFileDialogOpen)
    fd.Title = "** Open the Receipt Register text file in order to convert it into Excel:  **"
    Dim vrtSelectedItem As Variant
    With fd
        .Filters.Clear
        .Filters.Add "All files", "*.txt"
        
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
             fn = vrtSelectedItem
             
            Next vrtSelectedItem
        Else
        End If

THANKS,
Mark

 

[tweedle]

after fd.Title = ...

fd.InitialFileName = ThisWorkbook.Path & "\"

 

[Mister H]

THANKS tweedle, I just saw your post. I will try out your solution as soon as I return to the office. I appreciate your assistance.

Have a GREAT weekend,
Mark

 

[Mister H]

Hi tweedle:

I just wanted to let you and anyone else that may look at this post that your suggestions resolved my problem.

THANKS Again,
Mark