Vba to import one entire worksheet from another workbook

[jzellman]

Want a user the ability to:

1. Navigate to a file
2. Import the only non-blank worksheet from another workbook

thanks

 

[JLGWhiz]

Sub shCopy()
Dim fName As String, wb As Workbook
fName = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
Set wb = Workbooks.Open(fName)
    For Each sh In wb.Sheets
        If Application.CountA(sh.Cells) > 0 Then
            sh.Copy Before:=ThisWorkbook.Sheets(1)
            Exit For
        End If
    Next
    wb.Close False
End Sub

This will allow the user to find the file they want then open it by selecting it and the code will find the first sheet with data to import to the host workbook. The code is assumed to be run from the destination workbook.

 

[migs000]

Sub shCopy()
Dim fName As String, wb As Workbook
fName = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
Set wb = Workbooks.Open(fName)
    For Each sh In wb.Sheets
        If Application.CountA(sh.Cells) > 0 Then
            sh.Copy Before:=ThisWorkbook.Sheets(1)
            Exit For
        End If
    Next
    wb.Close False
End Sub

This will allow the user to find the file they want then open it by selecting it and the code will find the first sheet with data to import to the host workbook. The code is assumed to be run from the destination workbook.

I had been using this code but now I am receiving a run-time error 91. Do you know why this would be happening?