Custom Views based on sheet name
 

I have a workbook with approx 17 pages. Each page has 3 custom views. The
views use the sheet name followed by Summary, Detail or Both ie..
ProductSummary, ProductDetail or ProductBoth.

I also have a dialog box that allows the user to select their view
ActiveWorkbook.CustomViews("ProductSummary").Show
but setting up a macro for each view for each page is getting very tedious.

Is it possible to use one macro that will insert the name of the active
sheet if they push a button named Summary so there isn't a macro for each
page?

I'm thinking something like
ActiveWorkbook.CustomViews("Active.Worksheet"Summa ry).Show
but this doesn't appear to work......
Any ideas?