ask for a value

[cedarmoose]

I have this macro

Sub note_page_title()
'
' Macro recorded 12/11/2009 by Admin
'
ActiveWindow.ViewType = ppViewNotesPage
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1,
Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "PS 01 - 01" + Chr$(CharCode:=13)
With .Font
.Name = "Calibri"
.Size = 12
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With
ActiveWindow.ViewType = ppViewSlideSorter

but I would like to have the macro ask for each numeric value at the point
PS 01- 01
--
Thanks to all

I am running laptop Dell D800
1 Gg RAM
Xp Pro
Office 2002

 

[cedarmoose]

these slides are coming from bible lesson ppt
each ppt title starting with a number like " 13 - title "
that is the first number needed
and then the second number is the place of the slide in the ppt.
I want to put these slides in categories in other ppt but want to retain
where they came from
may be it would be better to do it by collecting those two numbers before I
move them or copy them but I have no idea how. Any suggestion
As you first show me I realized I would have to do them one by one
--
Thanks to all

I am running laptop Dell D800
1 Gg RAM
Xp Pro
Office 2007

 

[cedarmoose]

forgot to add that of course the title of the ppt and their number in their
ppt has to stay with the slide when I will move or copy them in their new
category ppt
--
Thanks to all

I am running laptop Dell D800
1 Gg RAM
Xp Pro
Office 2007

 

[cedarmoose]

ok with your help I was able to construct what I need
very thankful
--
Thanks to all

I am running laptop Dell D800
1 Gg RAM
Xp Pro
Office 2007