create a loop for copy and pasting ranges to outlook email

hello

i have a code that works but i currently refeence the tab names. is there a way to create a loop so the code will copy and paste all data in every tab except Sheet1? so something like:

loop for all sheets except sheet 1 and this inside the loop

Please Login or Register  to view this content.

and for it to add 1 to r for every iteration so first loop is r1, second loop is r2 etc

TIA and any help is appreciated
i attached the sheet w the working code now for referencereturns.xlsm

This may be more than you were seeking however ... the following copies data from all sheets except one. It pastes that data to the exception sheet, then copies that and creates an email
with the copied data formulated as the body of the email.

I'm certain there are others methods to obtain the same result but here is one I had. You could a few more lines of code to delete the final compilation sheet/s if desired.

Please Login or Register  to view this content.

this worked, TYVM
is there a way to paste it and format it with the basic black grid lines in the email?

Add grid lines to Excel cells.