The VBA is not working in my excel..please take a look..thank you.

[pedie]

Sub OpenFolderRequest()
YesNo = MsgBox("Would you like to open the folder to see" _
& vbCr & "which files are currently there?", vbYesNo + vbQuestion, "Open Folder?")
Select Case YesNo
Case vbYes
myval = Shell("C:\Documents and Settings\pedie\Desktop\Startup c:winnt", 1)
Case vbNo
End Select
End Sub

http://www.mrexcel.com/forum/showthread.php?t=35008this code does not open up in my system. please help. thank you. I want to oepn up a folder from my excel

 

[pedie]

Please help...

why is no one answering today????

 

[btadams]

try this (just change the folder C:\My Documents to the one you want):

Sub OpenFolderRequest()
    YesNo = MsgBox("Would you like to open the folder to see" _
    & vbCr & "which files are currently there?", vbYesNo + vbQuestion, "Open Folder?")
    Select Case YesNo
    Case vbYes
    myval = Shell("C:\WINDOWS\explorer.EXE /e, C:\My Documents\", 1)
    Case vbNo
    End Select
End Sub

 

[pedie]

Thanks alot..trying it now....

 

[pedie]

It does not work i dont know just why....

 

[btadams]

Are you getting an error message? If so, what line is highlighted?