You are missing 1 letter if that helps..... And it is on your "For" line where you should be looking.
I would prefer to see you make the effort yourself. If you understand what the code you use does, then you can be a much better coder moving forward.
You have the Autos window open, the information is right there.. Try creating a variable to store the ofd.FileName.Count -1 value and see what the value is.. Then you will see why you are getting the OutOfRange error..