Select Method of Worksheet Class failed Error

Question

Why am I getting the above error on the highlighted code line?

Sub copy_currentFile(currFilePath As Variant)

If (currFilePath Like "*Shipped Delivered*") Or (currFilePath Like "*BudgetTracker*") Or _

   (currFilePath Like "*Overton Report*") Then

    Workbooks.Open Filename:=currFilePath, ReadOnly:=True, UpdateLinks:=False

    With ActiveWorkbook

        If (currFilePath Like "*Shipped Delivered*") Then

            .Sheets(1).Select   <+++++++        ElseIf (currFilePath Like "*Budget Tracker*") Then

            .Sheets("BUDGET DETAIL").Select

        ElseIf (currFilePath Like "*Overton Report*") Then

            .Sheets("CASPR01 - Milestone Export").Select

        End If

        .ActiveSheet.Copy before:=ThisWorkbook.Sheets(1)

        Application.DisplayAlerts = False

        .Close

    End With

End If

End Sub

Answer 1

You will get this error if the sheet is hidden or cannot be selected for some other reason.