A button can only have one OnAction. you need to acll a main calling
procedure taht calls the two individual macros...

Selection.OnAction = "Module1.DoStuff"

In Module 1 add
sub DoStuff
call RawDatatoSummary
call SaveStuff
end sub

In module 1 change your existing macro frm Save to SaveStuff or something
else as Save is a reserved word in VBA...
--
HTH...

Jim Thomlinson


"EmmieLou" wrote:

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"