ผมทราบชื่อ workbooks และ worksheets โดยอยู่ใน column A และ B ตามลำดับ  แต่ติดปัญหาที่จะให้วน loop ได้อย่างไร จุดประสงค์ของผมคือ การ copy ข้อมูลจากแต่ละไฟล์ในเซลล์ B1 มาที่ Column C โดยมีทั้งหมด 500 ไฟล์

Dim i as long
for i =1 to 500
     worksheets("sheet1").cells(i,3).value = workbooks(???).worksheet(???).range("B1")
next i

อยากทราบหลักการครับ