vba to copy active visible sheets only to new workbook but ranges are dynamic

How to copy in active workbook all visible sheets only to new workbook with their respective sheet tabs names, but do not copy the macro buttons

1)The attached workbook sheets has fixed range (macro 1)

2) macro to copy all visible sheets only to new workbook with their sheet names when the sheets ranges are dynamic but I do not need to copy the macro buttons (macro 2 )

Try something like

Please Login or Register  to view this content.