1 of 65

2 of 65

Hot Seat

3 of 65

dog

cat

bird

frog

rabbit

ox

4 of 65

dance

draw

swim

sing

fly a kite

ride a bike

5 of 65

grandfather

grandmother

father

mother

sister

brother

6 of 65

student

teacher

doctor

nurse

cook

7 of 65

20

19

18

17

16

15

14

13

12

11

eleven

twelve

thirteen

fourteen

fifteen

sixteen

seventeen

eighteen

nineteen

twenty

8 of 65

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

14

13

12

11

20

19

18

17

16

Hot Seat

9 of 65

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

14

13

12

11

20

19

18

17

16

1

10 of 65

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

14

13

12

11

20

19

18

17

16

11 of 65

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Sub PseudoNumbers()

Dim oSh As Shape

Dim lSldNum As Long

Dim lCurSld As Long

Dim lStartingSld As Long

Dim oSld As Slide

Dim x As Long

' First, delete all previous slide numbers we've applied

For Each oSld In ActivePresentation.Slides

For x = oSld.Shapes.Count To 1 Step -1

If Len(oSld.Shapes(x).Tags("SldNum")) > 0 Then

oSld.Shapes(x).Delete

End If

Set oSh = ActiveWindow.Selection.ShapeRange(1)

With oSh.TextFrame.TextRange

lSldNum = CLng(.Text)

End With

lStartingSld = ActiveWindow.Selection.SlideRange(1).SlideIndex + 1

lCurSld = lSldNum + 1

For x = lStartingSld To ActivePresentation.Slides.Count

Set oSld = ActivePresentation.Slides(x)

oSh.Copy

With oSld.Shapes.Paste

.TextFrame.TextRange.Text = CStr(lCurSld)

.Tags.Add "SldNum", "Whatever"

End With

lCurSld = lCurSld + 1

Hot Seat

bird

dog

rabbit

cat

frog

ox

dance

draw

sing

swim

fly a kite

ride a bike

can

grandfather

grandmother

father

mother

brother

sister

who

he

she

cook

doctor

nurse

student

teacher

43 of 65

bird

dog

rabbit

cat

frog

ox

dance

draw

sing

swim

fly a kite

ride a bike

can

grandmother

father

mother

brother

sister

who

he

she

cook

doctor

nurse

student

teacher

grandfather

1

44 of 65

bird

dog

cat

frog

ox

dance

draw

sing

swim

fly a kite

ride a bike

can

grandmother

father

mother

brother

sister

who

he

she

cook

doctor

nurse

student

teacher

rabbit

2

45 of 65

bird

dog

cat

frog

ox

draw

sing

swim

fly a kite

ride a bike

can

grandmother

father

mother

brother

sister

who

he

she

cook

doctor

nurse

student

teacher

dance

3

46 of 65

bird

dog

cat

frog

ox

draw

sing

swim

fly a kite

ride a bike

can

grandmother

father

mother

brother

sister

who

he

she

cook

doctor

nurse

teacher

student

4

47 of 65

bird

dog

cat

frog

ox

draw

sing

swim

fly a kite

ride a bike

can

grandmother

father

mother

sister

who

he

she

cook

doctor

nurse

teacher

brother

5

48 of 65

bird

dog

cat

frog

ox

draw

sing

swim

ride a bike

can

grandmother

father

mother

sister

who

he

she

cook

doctor

nurse

teacher

fly a kite

6

49 of 65

bird

dog

cat

frog

ox

draw

sing

swim

ride a bike

can

grandmother

father

mother

sister

who

he

she

cook

nurse

teacher

doctor

7

50 of 65

bird

dog

cat

frog

ox

draw

sing

swim

can

grandmother

father

mother

sister

who

he

she

cook

nurse

teacher

ride a bike

8

51 of 65

bird

dog

cat

frog

ox

draw

sing

swim

can

father

mother

sister

who

he

she

cook

nurse

teacher

grandmother

9

52 of 65

bird

dog

cat

ox

draw

sing

swim

can

father

mother

sister

who

he

she

cook

nurse

teacher

frog

10

53 of 65

bird

dog

cat

ox

draw

sing

swim

can

father

mother

sister

who

he

she

cook

nurse

teacher

mother

11

54 of 65

bird

dog

cat

ox

draw

sing

swim

can

father

sister

who

he

she

cook

nurse

teacher

12

55 of 65

bird

dog

cat

ox

sing

swim

can

father

sister

who

he

she

cook

nurse

draw

13

56 of 65

dog

cat

ox

sing

swim

can

father

sister

who

he

she

cook

nurse

bird

14

57 of 65

dog

cat

ox

sing

swim

can

father

sister

who

he

she

cook

nurse

15

58 of 65

dog

cat

ox

sing

swim

can

father

who

he

she

cook

sister

16

59 of 65

dog

cat

ox

sing

can

father

who

he

she

cook

swim

17

60 of 65

dog

cat

ox

sing

can

who

he

she

cook

father

18

61 of 65

dog

cat

ox

sing

can

who

he

she

cook

19

62 of 65

dog

ox

sing

can

who

he

she

cat

20

63 of 65

dog

ox

can

who

he

she

sing

21

64 of 65

ox

can

who

he

she

dog

22

65 of 65

can

who

he

she

ox

23

1 of 65

2 of 65

3 of 65

4 of 65

5 of 65

6 of 65

7 of 65

8 of 65

9 of 65

10 of 65

11 of 65

12 of 65

13 of 65

14 of 65

15 of 65

16 of 65

17 of 65

18 of 65

19 of 65

20 of 65

21 of 65

22 of 65

23 of 65

24 of 65

25 of 65

26 of 65

27 of 65

28 of 65

29 of 65

30 of 65

31 of 65

32 of 65

33 of 65

34 of 65

35 of 65

36 of 65

37 of 65

38 of 65

39 of 65

40 of 65

41 of 65

42 of 65

43 of 65

44 of 65

45 of 65

46 of 65

47 of 65

48 of 65

49 of 65

50 of 65

51 of 65

52 of 65

53 of 65

54 of 65

55 of 65

56 of 65

57 of 65

58 of 65

59 of 65

60 of 65

61 of 65

62 of 65

63 of 65

64 of 65

65 of 65