VBA to loop through all csv files in folder and delete specific columns

[Pngn99]

I have a folder that contains 100 csv files. I need to delete the same columns from each of these files. I have tried several variations of the code below without success. I keep receiving a syntax error. I have tried everything I can find and keep striking out. Any help would be greatly appreciated!

Sub LoopAllFilesInFolder()
Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

myPath = "C:\Desktop\Test"
myExtension = "*.csv*"

myFile = Dir(myPath & myExtension)
Do While MyFile <> ""
If Len(myFile) = 0 Then Exit Do
Set wb = Workbooks.Open(Filename:=myPath & myFile)

Columns("B:Y").EntireColumn.Delete
wb.Close SaveChanges:=True
End If

myFile = Dir
Loop

'Message Box when tasks are completed
MsgBox "Task Complete!"
ResetSettings:
'Reset Macro Optimization Settings
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[Fluff]

What happens if you remove the End If line

 

[Pngn99]

What happens if you remove the End If line

Same error message.

 

[Fluff]

What error do you get & what line is highlighted?

 

[Pngn99]

I cleaned up some of the indents and then it worked. I still have no idea what was causing the issue, but it's done. Thanks much for responding!

 

[Fluff]

Glad you got it sorted & thanks for the feedback

 

[VBA learner ITG]

Could you post your amended code so others can see the resolution.

 

[Kotik]

Here is the code that worked for me. Just make sure you put \ after your folder address.

Sub LoopAllFilesInFolder()
Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

myPath = "your path\"
myExtension = "*.xls*"

myFile = Dir(myPath & myExtension)
Do While myFile <> ""
If Len(myFile) = 0 Then Exit Do
Set wb = Workbooks.Open(Filename:=myPath & myFile)
Columns("R:S").EntireColumn.Delete
wb.Close SaveChanges:=True


myFile = Dir
Loop

'Message Box when tasks are completed
MsgBox "Task Complete!"
ResetSettings:
'Reset Macro Optimization Settings
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub