VBA not running

[neasds]

For some reason this VBA does not run when I insert it into the module? Any suggestions?

Sub vba_combine_workbooks ( )

Dim Path As String

Dim Filename As String

Dim Sheet As Worksheet

Path = “C:\Users\Dwight\Documents\"

Filename = Dir (Path & “*.cvs”)

Do While Filename <> “”

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=thisWorkbook.Sheets(1)

Next Sheet

Workbooks (Filename).Close

Filename = Dir ()

Loop

End Sub

 

[Joe4]

Two things:

It is generally advised NOT to use reserved words (words of existing Excel/VBA functions, methods, properties, objects, etc) as the name of your variables.
So I would prefix all of these variables with the word "My":

Dim Path As String

Dim Filename As String

Dim Sheet As Worksheet

Secondly, shouldn't this:

Filename = Dir (Path & “*.cvs”)

actually be this?

Filename = Dir (Path & "*.csv")

(straight double-quotes and "csv" instead of "cvs").