VBA - open a folder from within Excel

[rupertsland]

Hello.

I'm trying to generate a VBA procedure in Excel 2003 that would let me open a folder window by clicking on a button in an Excel worksheet.

Here's the code I wrote:

'---------------------------------------------------------------
Public Sub OpenFolder() 'open folder on network

'declare variable:
Dim strFilePath As String

strFilePathCodes = Range("filepath").Value
ActiveWorkbook.Filename = strFilePath

End Sub
'------------------------------------------------------

"Range" is a range name "filepath" that refers to a cell where I store the path to the folder I want to open: D:\Test\

The statement ActiveWorkbook.Filename is obviously wrong, but I can't seem to find the correct statement to actually open the folder. Any suggestions or code that would help me solve my problem?

Sincerely,
Rupertsland

 

[Gary McMaster]

Not sure what you mean by "open a folder".

Here's a guess:

Shell "Explorer.exe D:\Test\"

Gary

 

[rupertsland]

Hi Gary.

Thank you for your help. I tried your solution and it works great.

By "Open Folder", I was referring to a folder window.


Cheers,
Rupertsland