pege på sti

http://www.eksperten.dk/spm/526858
http://www.eksperten.dk/spm/729912

Dim sti As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count > 0 Then
            sti = .SelectedItems(1)
        End If
    End With
    If sti = "" Then Exit Sub ' du valgte intet bibliotek

eller hvis du vil se og klikke på filen, her får du stien med \ i enden

  Dim sti As String
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        If .SelectedItems.Count > 0 Then
            sti = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\", Len(.SelectedItems(1))) - 0) ' ret -0 til -1, hvis du vil fjerne sidste\
        End If
    End With
    If sti = "" Then Exit Sub ' du valgte intet bibliotek

smider du et svar er pointene dine

et svar ;-))