importing from multiple workbooks with different worksheet name

[22newbie]

Hi all,

I have a working code for pulling worksheet from multiple workbooks. However, I found out some of the worksheets are of different names.
All workbooks have 1 sheet in them which I am importing but they are all of different names. How do I go about doing it? My current code look something like this... thank you in advance

hile strExtension <> ""
        Set srcWB = Workbooks.Open(strPath & strExtension)
        With srcWB.Sheets("Sheet2")
            LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            .Range("A2:D" & LastRow).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1, 0)

 

[rollis13]

Maybe, since you state that every workbook you are to pull from has only one sheet then you could try changing:
With srcWB.Sheets("Sheet2")
to:
With srcWB.ActiveSheet

 

[22newbie]

Maybe, since you state that every workbook you are to pull from has only one sheet then you could try changing:
With srcWB.Sheets("Sheet2")
to:
With srcWB.ActiveSheet

omg! worked like magic! Thank you!

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.