macro to open folder

[dejvione]

what is wrong with macros, fail to report any error, but the folder still does not open.

Sub Gumb7_Klikni()
Dim YourFile As Variant
Dim YourFolderPath As Variant
YourFolderPath = "C:\DAVID"
ChDir YourFolderPath
YourFile = Dir(YourFolderPath & "*.xls")
Do While YourFile <> ""
Workbooks.Open Filename:=YourFile
YourFile = Dir
Loop


End Sub

Thank you

[Andrew-R]

You don't have:

a. A slash at the end of your folder path.

b. Code tags around your code.

Sort both of those things out and everything will be lovely

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here