I am running a macro that opens a second workbook loading a csv file. I would like to copy the sheet containing the csv file (which is "Sheet1") of the new opened workbook into the starting workbook. I keep getting a subscript out of range error when executing the line to copy the sheet.

```
Public Sub LoadCSV()
Dim FileName As String
Dim Path As String
Dim CurrentWorkbook As Workbook ' macro workbook
Dim CSVWorkBook As Workbook     ' csv workbook

Set CurrentWorkbook = ThisWorkbook

'File Dialog box to import CSV file
FileName = Application.GetOpenFilename(FileFilter:="CSV File (*.CSV,*.csv")
'Workbooks.Open FileName
Set CSVWorkBook = Workbooks.Open(FileName)

CSVWorkBook.Activate
CSVWorkBook.Worksheets("Sheet1").Copy _
After:=CurrentWorkbook.Worksheets(Sheets.Count)

    'Extracts the Path from the CSV file Path to be used later in function
Path = Left(FileName, InStrRev(FileName, "\"))
End Sub

```