Hi,

I need to combine multiple workbooks to in one sheet am using the below mention code for combining but that is not finding the all sheest of a work book. Kindly give a sugesstion for me. 
If sFileName <> "" Then
        iCounter = iCounter + 1
        sFileName = sFolderName + sFileName
        Set Wbk = Workbooks.Open(sFileName)
        For Each Wsh In Wbk.Worksheets
            With Wsh
                If .AutoFilterMode Then
                    Wsh.AutoFilterMode = False
                End If
                If Wsh.FilterMode Then
                    Wsh.ShowAllData
                End If
                   
                    Range("B19:BA" & Range("A65536").End(xlUp).Row).Copy
                    Workbooks("Book1").Sheets("Sheet1").Activate
                    Application.DisplayAlerts = False
                    Range("B65563").End(xlUp).Offset(1, -1).PasteSpecial
                    Application.CutCopyMode = False
            End With
    Next Wsh