Pop up messages when many programs are executed in VBA PowerPoint

[CuriosityBug]

Something like code below which doesn't have any conditional statements to compare with.

Sub changecol(oshp As Shape)
    oshp.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub