I have this macro that places a submit button on my worksheet.
It works the first time correctly. Everytime it is used after that it fails
to repeat the first macro, "RawdatatoSummary" and then follows through with
the second macro "Module1.Save". How do I get the Button Macro to repeat the
"RawdatatoSummary" and then "Module1Save" over many times?


ActiveSheet.Buttons.Add(156.75, 36.75, 73.5, 22.5).Select
ActiveSheet.Shapes("Submit").Select
Selection.Characters.Text = "Submit"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.OnAction = "RawDatatoSummary"
Selection.OnAction = "Module1.Save"