Abrir explorador de archivos con macro

Molestando con una pregunta a los expertos tengo la siguiente macro

'Representa mi macro para abrir la carpeta C:\Program Files
Sub AbrirCarpetaProgramFiles()

'variables del nombre de la carpeta a abrir
Dim nombrecarpeta As String
'Instancia FileSystemObjet para confirmar si existe la carpeta
Dim FileSystemInstancia

nombrecarpeta = "c:\Program Files"

Set FileSystemInstancia = CreateObject("Scripting.FileSystemObject")

    If Not FileSystemInstancia.FolderExists(nombrecarpeta) Then
        MsgBox ("La Carpeta no Existe")
    Else
        Call Shell("explorer.exe" & nombrecarpeta, vbNormalFocus)   End If

End Sub

Con ella pretendo abrir el explorador de archivos pero me marca depurar en esta linea

Call Shell("explorer.exe" & nombrecarpeta, vbNormalFocus)

Si fueran tan amables de ayudarme; he intentado cambiar la ruta a Documentos pero mi windows es en español y segun yo la ruta es en ingles.