How to open folder in File Explorer from Execl sheet?

Sometime need to open a folder File Explorer, this short script will help.

Private Sub OpenFolder(Folder)
Set objShell = CreateObject("Wscript.Shell")

strPath = Folder

strPath = "explorer.exe /e," & strPath
objShell.Run strPath, vbNormalFocus
End Sub

Private Sub openfoldertest()
OpenFolder "c:\test\"
End Sub