Hi Jason

Sub test()
Dim s As String, v As Variant
Dim wb As Workbook, ws As Worksheet
s = "C:\My Folder\My Sub Folder"
ChDrive s
ChDir s
v = Application.GetOpenFilename("(*.dbf), *.dbf")
If v = False Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Set wb = Workbooks.Open(Filename:=v)
Set ws = wb.ActiveSheet
ws.Cells.Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
wb.Close savechanges:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

--

XL2003
Regards

William



"Jason Ward" wrote in message
...


Hi All,

Here is what I am trying to do. I have a button called "Open" which is
used to bring up the file open window code as follows: myfilepath =
myapp.GetOpenFilename(",*.dbf", , "Open File")

My questions is; is there a way that I can now add some code here so
that the file i choose opens in Worksheet1. Along the same lines as:
Destination:=Worksheets("Sheet1").Range("A1")

I cannot seem to get it working any ideas would be welcomed.

Jason

*** Sent via Developersdex http://www.developersdex.com ***