OK can you hlp me with this part?

Sub ListFiles()
F = Dir("C:\*.XLS")
Do While Len(F) 0
ActiveCell.Formula = F
ActiveCell.Offset(1, 0).Select
F = Dir()
Loop
End Sub

I want it to post the file names from A1 onwards. At the moment, i
just posts them in any ActiveCel

--
Message posted from http://www.ExcelForum.com

insert the line
range("A1").activate
before your loop begins
;-)

ianripping wrote in message
...
OK can you hlp me with this part?

Sub ListFiles()
F = Dir("C:\*.XLS")
Do While Len(F) 0
ActiveCell.Formula = F
ActiveCell.Offset(1, 0).Select
F = Dir()
Loop
End Sub

I want it to post the file names from A1 onwards. At the moment, it
just posts them in any ActiveCell


---
Message posted from http://www.ExcelForum.com/