cope method of worksheet class failed error - working code suddenly stopped working...

[mysticmario]

Any has an idea why this occurs?

Private Sub bezb_Click()
Dim narzutr As String
Dim narzutm As String
Dim wName As String
Dim pName As String
Dim cell As Range
Dim fname As String, wb As Workbook, project As String
narzutr = 1.15
pName = Range("C3").Value
wName = "Faktury" + Left(pName, 5)
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 After:=ThisWorkbook.Sheets(Sheets.Count)
         End If
    Exit For
    Next
    Application.DisplayAlerts = False
        wb.Close True
    Application.DisplayAlerts = True

 

[dmt32]

this worked for me

  Dim sh As Worksheet
    Set wb = ActiveWorkbook
    For Each sh In wb.Worksheets
        If sh.Name = "Wycena z dokladnymi materialami" Then
            sh.Visible = xlSheetVisible
            sh.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count): Exit For
         End If
    Next sh

try copying all above & see if resolves your issue

Dave