Where can I embedd the address of return results for this VBA to get file names?

[outlawdevil]

I want to input a code where I can specify where it can return the For Next loop. CUrrently it is in Cell A1. THanks.

Sub LoopThroughFiles ()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\VBA Folder")

For Each oFile In oFolder.Files

    Cells(i + 1, 1) = oFile.Name

    i = i + 1

Next oFile

End Sub

 

[Fluff]

How about

Sub LoopThroughFiles()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim Loc As String

Loc = InputBox("Please enter start point in the form ""A1""")
If Loc = "" Then Exit Sub
If Not Evaluate("isref(" & Loc & ")") Then Exit Sub
Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\mrexcel")

For Each oFile In oFolder.Files

    Range(Loc).Offset(i) = oFile.Name

    i = i + 1

Next oFile

End Sub

 

[outlawdevil]

How about

Sub LoopThroughFiles()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim Loc As String

Loc = InputBox("Please enter start point in the form ""A1""")
If Loc = "" Then Exit Sub
If Not Evaluate("isref(" & Loc & ")") Then Exit Sub
Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\mrexcel")

For Each oFile In oFolder.Files

    Range(Loc).Offset(i) = oFile.Name

    i = i + 1

Next oFile

End Sub

Thanks Fluff!I just changed Loc declaration to my cell value.

 

[Fluff]

You're welcome & thanks for the feedback.