Nice job Jakobshavn,

You can also try the following which are similar:
Sub RunCmdDotExe()
  '/K keeps cmd.exe open
  Call Shell("cmd.exe  /K ", vbNormalFocus)
  
  'or
    
  Call Shell("cmd.exe  /K ", vbMaximizedFocus)
End Sub
Lewis