Dear Team,

I am new for this power point coding.

I had create code for pause the program and execute after 2 seconds in excel and it is working greate.
My excel code is 
Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, shpArrColor, i As Long, i1 As Long, j As Long, j1 As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Additional")
Set shp = ActiveSheet.Shapes("P-BUTTON")
shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
shpArrOnOff = Array("RedClr31")
shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
 With shp
 If ActiveSheet.Shapes("MCCB-ON-OFF").TextFrame.Characters.Text = "ON" _
And ActiveSheet.Shapes("P-BUTTON").TextFrame.Characters.Text = "OFF" Then
 .Fill.ForeColor.RGB = vbGreen
 .TextFrame.Characters.Text = "ON"
 .TextFrame.Characters.Font.Bold = True
 For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
 ActiveSheet.Shapes(shpArrOnOff(i)).IncrementRotation 30


 Next i
 
          For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
            If ActiveSheet.Shapes("MCCB-ON-OFF").TextFrame.Characters.Text = "ON" _
            And ActiveSheet.Shapes("P-BUTTON").TextFrame.Characters.Text = "ON" Then
                ActiveSheet.Shapes(shpArrOnOff1(i1)).IncrementRotation 30
            End If
            Next i1
            
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActiveSheet.Shapes(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
             If ws.Shapes("P-BUTTON").TextFrame.Characters.Text = "ON" Then
                ActiveSheet.Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActiveSheet.Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If
            
 Call PauseIt
 Application.Wait (Now() + TimeValue("0:00:01"))


 For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
 ActiveSheet.Shapes(shpArrOnOff(i)).IncrementRotation -30
 Next i
 
             For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActiveSheet.Shapes(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActiveSheet.Shapes(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1


 End If
 End With
End Sub
Sub PauseIt()
 'Application.Wait (Now() + TimeValue("0:00:00"))
End Sub
The i modified the excel code as per power point. But pause condition is not working
My power point code is 

Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, shpArrColor, shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long




Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
shpArrOnOff = Array("RedClr31")
shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
 With shp
 If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
 .Fill.ForeColor.RGB = vbGreen
 .TextFrame.TextRange.Text = "ON"
 .TextFrame.TextRange.Font.Bold = True
 For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
 ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30


 Next i
 
          For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
            If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
            And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
            End If
            Next i1
            
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
             If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If


 Call PauseIt
 Application.WAIT (Now() + TimeValue("0:00:01"))


 For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
 ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
 Next i


             For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1

 End If
 End With
End Sub
Sub PauseIt()
 Application.WAIT (Now() + TimeValue("0:00:00"))
End Sub
when i am running above code i am getting "Method or Data member not found" error message.

Can any one help me to correct this issue