I have the following code, thanks jindon

Sub Get_Data()
Dim wbOpen As Workbook

    myfile = Application.GetOpenFilename("C:\Work\,*.xls")
    Set wbOpen = Workbooks.Open(Filename:=myfile)
    wbOpen.ActiveSheet.Range("A:A,C:C,E:E,G:G").Copy ThisWorkbook.ActiveSheet.Range("A1")
    wbOpen.Close

End Sub
Problem is how do I get getopenfilename to be locked to a specific network directory
\\ltds015\data\Groups\thisplace\yeshere
the user picks file from that directory?

Thanks solti