VB in Excel

I just put this code together at work to grab specific information from 1,181 old excel sheets and place them in one centeralized document!

I'm sure there are better, and possibly easier ways to do this, but it's my first VB code in forever, and it works, so I'm ok with it!

Code:

Sub FillSheetFromFiles()
    Dim fileArray As Variant
    Dim xlTmp As Excel.Application
    Dim fileTmp As Variant
    Dim cellTmp As Variant
 
    Set xlTmp = New Excel.Application
    fileArray = Worksheets("Sheet1").Range("a1:a1181").Value

    Sheets("Sheet2").Select

    'Looping structure to look at array.
    For i = 1 To UBound(fileArray)
        fileTmp = fileArray(i, 1)
        xlTmp.Workbooks.Open fileTmp
        cellTemp = "A" & (i + 1)
        ActiveSheet.Range(cellTemp).Select
        ActiveCell.Value = xlTmp.Range("C10")
        ActiveCell.Offset(0, 1).Value = xlTmp.Range("C12")
        ActiveCell.Offset(0, 2).Value = xlTmp.Range("C13")
        ActiveCell.Offset(0, 3).Value = xlTmp.Range("C9")
        xlTmp.ActiveWorkbook.Close False
        xlTmp.Workbooks.Close
    Next
End Sub

My coworker's don't want me to leave when I graduate in December! LOL

 

View attachment 4456 You should get this shirt sir! Cheers!