Simple Compile Error - Expected End Sub

[rahulsteel]

I'm really new to VBA coding and would highly appreciate if you can help me with the error as per the screenshot

<a href="https://ibb.co/hmRVfHr"><img src="https://i.ibb.co/ZM6xmKv/Compile-error.png" alt="Compile-error" border="0"></a>

https://ibb.co/hmRVfHr

 

[Fluff]

Hi & welcome to MrExcel.
Just add the words in red as shown

Exit Sub
[COLOR=#ff0000]End Sub[/COLOR]

 

[rahulsteel]

Thanks a lot

 

[Fluff]

You're welcome

 

[fr_Mu]

Ok, Brand new to VBA. As of this morning brand new. I'm attempting to create a workbook that will list all files in a folder. Got it! What I don't have is the macro to update each time I open. Constantly get the compile error. Any advice? Below is the code I'm using. Thanks in advance!!

Sub Workbook_Open()

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:\Users\admin\Dropbox\Steph-Frank\_posted")

For Each oFile In oFolder.FILES

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

i = i + 1

Next oFile


End Sub

 

[igold]

Hi fr_Mu,

Welcome to the MrExcel forum.

You really should have started a new thread with your question as opposed to adding it to an existing thread. That said, if you want your code to execute every time you open the workbook, make sure that the code is put into the "ThisWorkbook" module and remove this line:

Sub LoopThroughFiles()

which is the line that is preventing the code from compiling.

 

[fr_Mu]

My apologies. I posted to this one because of the Thread title. Works perfect! Thank you!!

 

[igold]

You're welcome. I was happy to help.