repetitive macros-solved

I have a work book with several (couple of hundred) buttons, which when clicked display the contents of a range of cells in a message box as shown below;

Please Login or Register  to view this content.

Does anyone know of a more efficent way of coding this rather than copy,paste,edit,copy,paste,edit,copy,paste,edit........ad infinitum.

use excel itself
in a blank sheet
in a1 put

="Sub v"&CEILING(ROWS($A$1:A307)/3,1)&"_Click()"

in a2

="MsgBox Join(Application.Transpose(Application.Transpose(Range(""Sheet1!A"&CEILING(ROWS($A$1:A307)/3,1)&":Sheet1!J"&CEILING(ROWS($A$1:A307)/3,1)&"""))),chr(10))"

in a3

End Sub

then select a1:a3 and drag down as many as you need
copy paste the lot into your vba
then again there might be a vba way that is far cleverer but beyond me lol

henrysmith,

Add a new button, and put the following code in it:

Please Login or Register  to view this content.

If you are using the buttons from the Forms toolbar, you could label the buttons with the row number, and assign all the buttons to this Macro.

Please Login or Register  to view this content.