Macro Copy Help

catherine9910 

I hope you can use the code below as starting point.

Sub ProcessCSV()
    ' Change path as needed but keep the \ at the end
    Const strPath = "C:\MyFolder\"
    Dim strFile As String
    Dim wbkSales As Workbook
    Dim wbkCSV As Workbook
    With Application.FileDialog(1) ' msoFileDialogOpen
        .Filters.Clear
        .Filters.Add "CSV Files (*.csv)", "*.csv"
        .InitialFileName = strPath & "*.csv"
        If .Show Then
            strFile = .SelectedItems(1)
        Else
            Beep
            Exit Sub
        End If
    End With
    Set wbkSales = ActiveWorkbook
    Set wbkCSV = Workbooks.Open(Filename:=strFile)
    ' Code to copy goes below
    ' ...
    wbkCSV.Close SaveChanges:=False
End Sub