Dear Experts:

I created a macro that formats the footnote numbers at the bottom of
the page differently/seperately from the footnote reference marks in
the main body of the text. This is done by using Input Boxes. The macro
is running fine.

Now here comes my question: I would like the user to see the previously
filled-in value in the InputBoxes whenever he/she re-activates the
macro. Now, only the default values show up when the InputBoxes are
activated. Is there a solution ?

Sub Dipl_Footnote_Number_Format_Separately()
'Format footnote numbers separately

Dim FootnoteFontSize As String
Dim FootnoteFontPosition As String
Dim i as Byte

FootnoteFontSize = InputBox("Please indicate the font size of the
footnote number" & vbCrLf & _
"This will cause the footnote numbers to be formatted differently from
the footnote reference marks in the main body of the text", "Font size
of the footnote number", 9)

FootnoteFontPosition = InputBox("Please indicate the position of the
footnote number ", _
"Position the footnote number", 3)

Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToFirst, Count:=1,
Name:=""
       For i = 1 To ActiveDocument.Footnotes.Count

Selection.HomeKey unit:=wdLine
Selection.MoveRight unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.Font.Superscript = False

Selection.Font.Size = FootnoteFontSize
Selection.Font.Position = FootnoteFontPosition

Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext, Count:=1,
Name:=""

Next i

End Sub

Again, my question: I would like the user to see the previously
filled-in value in the InputBoxes whenever he/she re-activates the
macro. Now, only the default values show up when the InputBoxes are
activated. Is there a solution ?

Help is appreciated. Thanks a lot in advance.

Regards,

Andreas