Word Push icon button then goes to second and finally Push icon button it goes to third

Hello from Steve

Objective

I would like to please Push icon button then goes to second and finally Push icon button it goes to third

Sub Places_Input_1st()

Selection.TypeText Text:="1"

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Font.Color = wdColorRed

Selection.Font.Bold = wdToggle

Options.DefaultHighlightColorIndex = wdYellow

Selection.range.HighlightColorIndex = wdYellow

Selection.MoveDown Unit:=wdLine, Count:=1

End Sub

Sub Places_Input_2nd()

Selection.TypeText Text:="2"

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Font.Color = wdColorRed

Selection.Font.Bold = wdToggle

Options.DefaultHighlightColorIndex = wdYellow

Selection.range.HighlightColorIndex = wdYellow

Selection.MoveDown Unit:=wdLine, Count:=1

End Sub

Sub Places_Input_3rd()

Selection.TypeText Text:="3"

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

Selection.Font.Color = wdColorRed

Selection.Font.Bold = wdToggle

Options.DefaultHighlightColorIndex = wdYellow

Selection.range.HighlightColorIndex = wdYellow

Selection.MoveDown Unit:=wdLine, Count:=1

End Sub