Open specific folder, select file to open and copy then paste

Kranky

Can you post what you've tried so far?

Did you try Application.GetOpenFilename?

Dim wb As Workbook
Dim strDrive As String
Dim strFolder As String
Dim strFilename As String

    strDrive = "C:"

    strFolder = "C:\ASpecificFolder"

    ChDrive strDrive

    ChDir strFolder

    strFilename = Application.GetOpenFilename("Excel Files (*.xls), *.xls")

    If strFilename <> "False" Then
        Set wb = Workbooks.Open(strFilename)

        ' code to copy and paste to other workbook

        wb.Close

    End If