Hi.
i'm using Application.GetOpenFilename to open a file. But i want it to
open the file in the active workbook insted of a new one. and in the sheet that i want.
Dim FileName As Variant
Dim Filt As String, Title As String
Dim FilterIndex As Integer, Response As Integer
ChDrive "H:\"
ChDir "H:\tonn"
Filt = "all Files (*.), *."
FilterIndex = 5
Title = "Please select a different File"
FileName = Application.GetOpenFilename(FileFilter:=Filt, _
FilterIndex:=FilterIndex, Title:=Title)
If FileName = False Then
Response = MsgBox("No File was selected", vbOKOnly & vbCritical, "Selection Error")
Exit Sub
End If
Response = MsgBox("You selected " & FileName, vbInformation, "Proceed")
Workbooks.Open FileName
Bookmarks