Macro for slideshow, when we are using two presenatations

[s_manojp]

I want to create macro, when am referring two presentations.
For example, if am using Dual monitor, I click on one presentation, then automatically, the other presentation will go on next slide.

Many thanks in advance

[marathi.bana]

Here is the code for your request.......


Sub MNext()
On Error Resume Next
Dim oView As View
Dim x As Integer
SlideShowWindows(Index:=1).View.Next
With ActivePresentation.Slides
Set oView = ActiveWindow.View
x = oView.Slide.SlideIndex
oView.GotoSlide x + 1
End With
End Sub

:rotlaugh: