The syntax is wrong for your range

Change
Set rngFileNames = Sheets("Sheet1").Range("I2", Cells(Rows.Count, "I").End(xlUp))
To
Set rngFileNames = Sheets("Sheet1").Range("I2:I" & Cells(Rows.Count, "I").End(xlUp))