VBA Msgbox code not working


New Member
May 6, 2019
Hey all, sorry to post to the wrong board but i am new here and could not find a thread about PowerPoint.
With that being said I am trying to have a msgbox appear when the powerpoint file is opened, and then when the user decides to go to a next slide I want the same macro/msgbox to re-appear again, all the way throughout the slides. The code I have right now works to display the msgbox however I just dont know how to make it automatically run whenever the file is opened and from hoping to slide to slide.

This is my current code:

Option Explicit

Sub Pop_Up()

MsgBox "PowerPoint playback error. Verify that the necessarycodec for this media format is installed, and then try again.",vbOK + vbInformation
End Sub


Some videos you may like

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.


Well-known Member
Oct 17, 2005
Office Version
Hi Snelsonz,
add a module in your PPTM file and add a macro named: Sub OnSlideShowPageChange()
That macro will run when you run your PowerPoint and with every new sheet. There are a couple more "pre-named" macros that will run (you just have to add them to a module and add code to make them work), see e.g. this list: http://officeoneonline.com/vba/events_version.html
Hope that helps,

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...