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))
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))
Elegant Simplicity............. Not Always
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks