Need to attach a macro to buttons in multiple worksheets

[sbar7]

I've got a big ole excel file with 504 sheets, 500 of which are identical with tab names of 1 through 500 and have two buttons on each sheet. Unfortunately, those buttons were supposed to have macros attached to them but it didn't work. Can anyone help me attach macros to the two buttons across all worksheets?

Button 1 should have this:
Sub Print_PO()
ActiveSheet.PageSetup.PrintArea = "A3:I47"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

And Button 2 should have this:
Sub Print_Receipt()
ActiveSheet.PageSetup.PrintArea = "K3:T52"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

 

[Domenic]

Since it looks like you'll only need to do this once, here's a quick little macro you can use, which doesn't include error checking. Note that it assumes the workbook containing the buttons is the active workbook.

Sub AssignMacrosToButtons()

    Dim i As Long
    
    For i = 1 To 500
        With Worksheets(i)
            .Buttons(1).OnAction = "Print_PO"
            .Buttons(2).OnAction = "Print_Receipt"
        End With
    Next i
    
End Sub

Hope this helps!

 

[sbar7]

I get the following error:

 

[Domenic]

The error means that a referenced worksheet does not contain a button (or a second button, depending on which line gave you the error). My understanding is that...

1) those buttons are Form controls, not ActiveX controls, and that

2) your sheets are named 1, 2, 3, and so on until 500.

Is this correct?

 

[sbar7]

Your assumptions are correct, but the first four sheets of the workbook do not have buttons, so I would just want this applied to the next 500 sheets which are named 1 - 500 like you said. I'm guessing it's those first four sheets that are causing the problem?

UPDATE:
Aha! That was it. I changed the "For i = 1 To 500" to "For i = 5 To 504" and it worked. I initially figured those numbers were referring to the actual sheet names and not the order of the sheets (I'm not good with VBA).

Thank you, Domenic!

 

[Domenic]

Sorry, my mistake, replace...

[COLOR=#333333]With Worksheets(i)[/COLOR]

with

With Worksheets(CStr(i))

 

[Domenic]

UPDATE:
Aha! That was it. I changed the "For i = 1 To 500" to "For i = 5 To 504" and it worked. I initially figured those numbers were referring to the actual sheet names and not the order of the sheets (I'm not good with VBA).

Actually, I originally meant to refer to those sheets by name, not by index. And so my last post fixes it. Again, sorry about that.