Open diaogue box, select the .xlsb file and import Sheet1

[LittlegmoonBH]

Hi Guys,

I'm trying to write some code to simply import Sheet1 from a file.

The file name will change and so will the location, so it needs to:

Run the macro from the existing file
Load a dialogue box so the file can be selected by the user
Copy Sheet1 from the selected file and add it into the file where the macro was ran from
Close the file that the user selected from the dialogue box.


Seemed pretty simple to begin with but is proving more difficult than first thought.

Any help appreciated.

 

[Fluff]

How about

Sub LittlegmoonBH()
   Dim Fname As String
   Dim Wbk As Workbook
   
   Fname = Application.GetOpenFilename
   Set Wbk = Workbooks.Open(Fname)
   Wbk.Sheets("Sheet1").Copy ThisWorkbook.Sheets(1)
   Wbk.Close False
End Sub

 

[LittlegmoonBH]

Like a dream

 

[Fluff]

You're welcome & thanks for the feedback