Hi friends,
I want to set the default volume of media player '5'. The code opens the mixer volume and I have to manually set the media player volume which is very annoying. The volume is too high when I open the excel file because I use media player to listen the music also and at this time is increased as per my requirement. After opening excel file the volume is set at the level I closed it.

So please guide me to set the default volume 5 and if I want to increase I will increase it manually.

Option Explicit

Sub Open_Mixer()
'open Windows volume control mixer to manually adjust Windows Media Player volume

Dim MixerApp As String
Dim retval As Variant

    MixerApp = "c:\Windows\System32\sndvol.exe"
    retval = Shell(MixerApp, vbNormalFocus)

End Sub
Thanking you in anticipation.

Regards,

Mukesh