I have the following code, thanks jindon
Problem is how do I get getopenfilename to be locked to a specific network directory![]()
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
\\ltds015\data\Groups\thisplace\yeshere
the user picks file from that directory?
Thanks solti
Bookmarks