Public Sub PopUpBattleTimes3()
BattleCounter = 0
SlideShowWindows(1).View.GotoSlide (7)

Dim oShp1 As Shape
Dim oShp2 As Shape
Dim oShp3 As Shape


Dim valuex As Integer
Dim valuey As Integer

valuex = CInt(Int((800 * rnd()) + 10))
valuey = CInt(Int((500 * rnd()) + 10))
Set oShp1 = ActivePresentation.Slides(7).Shapes.AddShape(msoShapeActionButtonCustom, valuex, valuey, 80, 50)
oShp1.TextFrame.TextRange.Text = "Object 1"
With oShp1.ActionSettings(ppMouseClick)
    .Action = ppActionRunMacro
    .Run = "AddToCounter"
End With


valuex = CInt(Int((800 * rnd()) + 10))
valuey = CInt(Int((500 * rnd()) + 10))
Set oShp2 = ActivePresentation.Slides(7).Shapes.AddShape(msoShapeActionButtonCustom, valuex, valuey, 80, 50)
oShp2.TextFrame.TextRange.Text = "Object2"
With oShp2.ActionSettings(ppMouseClick)
    .Action = ppActionRunMacro
    .Run = "AddToCounter"
End With

valuex = CInt(Int((800 * rnd()) + 10))
valuey = CInt(Int((500 * rnd()) + 10))
Set oShp3 = ActivePresentation.Slides(7).Shapes.AddShape(msoShapeActionButtonCustom, valuex, valuey, 80, 50)
oShp3.TextFrame.TextRange.Text = "Object3"
With oShp1.ActionSettings(ppMouseClick)
    .Action = ppActionRunMacro
    .Run = "AddToCounter"
End With
End Sub