Import Worksheet Named Pie from specific folder

[helpexcel]

Hi,

I'm looking to have a button that opens to the specific folder on the desktop, lets call it EFOLDER. You would then select one of the excel files to import. However I only want to import the worksheet named "PIE" which has data starting in A1. I then want that info copied to sheet1 starting in A2.

Thanks!!

 

[mumps]

Try:

Sub CopySheet()
    Application.ScreenUpdating = False
    Dim MyFile As String, desWs As Worksheet
    Set desWs = ThisWorkbook.Sheets("Sheet1")
    ChDir (CreateObject("WScript.Shell").specialfolders("Desktop") & "\EFOLDER\")
    MyFile = Application.GetOpenFilename("Excel files (*.xls*), *.xls*")
    If MyFile <> "" Then
        Workbooks.Open (MyFile)
        Sheets("PIE").UsedRange.Copy desWs.Cells(2, 1)
        ActiveWorkbook.Close False
    End If
    Application.ScreenUpdating = True
End Sub

 

[helpexcel]

Works PERFECTLY!! THANK YOU!!

 

[mumps]

You are very welcome.