shell command Excel 2007

Your code works for me

Public Sub X()

    On Error GoTo errTrap:
    retval = Shell("c:\WINDOWS\system32\cmd.exe", vbMaximizedFocus)
    Exit Sub
errTrap:
    MsgBox "Could not open cmd.exe.", vbExclamation + vbOKOnly, Title
End Sub