Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 8/1/2017
Dim lngIndex As Long
Dim strMacro As String
  lngIndex = 1
  Do
    Select Case lngIndex
      Case 1: Macro_1
      Case 2: Macro_2
      Case 3: Macro_3
      Case 4:
        Macro_4
        'This is the last macro
        Exit Do
    End Select
    strMacro = InputBox("Macro " & lngIndex & " complete. Enter the next macro number or click ok", "Next Macro", "Ok")
      If strMacro = "Ok" Then
        lngIndex = lngIndex + 1
      Else
        lngIndex = CLng(strMacro)
      End If
      
    Loop
lbl_Exit:
  Exit Sub
End Sub
Sub Macro_1()
  'Whatever
End Sub
Sub Macro_2()
  'Whatever
End Sub
Sub Macro_3()
  'Whatever
End Sub
Sub Macro_4()
  'Whatever
End Sub